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[57] ABSTRACT 

An ultrasonic linear measurement system uses the travel 
time of surface waves along the perimeter of a three-di- 
mensional curvilinear body to determine the perimeter 
of the curvilinear body. The system can also be used 
piece-wise to measure distances along plane surfaces. 
The system can be used to measure perimeters where 
use of laser light, optical means or steel tape would be 
extremely difficult, time consuming or impossible. It 
can also be used to determine discontinuities in surfaces 
of known perimeter or dimension. 

14 Claims, 10 Drawing Sheets 
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ULTRASONIC LINEAR MEASUREMENT SYSTEM 

The invention described herein was made in the per- 
formance of work under NASA Contract No. NAS 5 
8-33708, and is subject to the provisions of Section 305 
of the National Aeronautics and Space Act of 1958, as 
amended (42 U.S.C. 2457). NASA signed a patent 
waiver (NASA Patent Waiver W-2697, NASA Case 
MFS-28, 266-1) for the invention on Sept. 26, 1988. 10 

BACKGROUND OF THE INVENTION 

1. Field of the Invention 

The invention relates to measuring apparatus, and 
more particularly to length measuring apparatus. 15 

2. General Background 

The External Tank 2 (FIGS. 1 and 2) of the Space 
Shuttle System 1 is a very large cryogenic tank with a 
relatively thin wall. Tank 2 is generally made of welded 
aluminum (2219) and is nominally 331.000 inches in 20 
diameter (86.656 feet or 1,039.867 inches in circumfer- 
ence). The wall of tank 2 is nominally 0.200 inches thick 
(i% of the thickness of its diameter). If tank 2 were 
reduced proportionally so that its diameter were equal 
to that of a soft drink can, the tank 2 wall would be one 2 
half the thickness of the soft drink can wall. External 
Tank 2 comprises a number of cylindrical barrel sec- 
tions 4 and dome structures 6 which are welded to- 
gether. Because of the thinness of the wall, the perime- 
ters of two barrel sections 4 which are to be welded 
together must be manufactured within close tolerance 
(±0.02 percent). If not, the out-of-tolerance section 4 
may have to be discarded, which is a very expensive 
proposition. 35 

The current method of perimeter measurement of 
tanks such as tank 2 involves using a steel tape. The steel 
tape is pulled with constant tension around the surface 
to be measured. Care is taken to ensure that the tape 
remains in the same measurement plane. The tempera- 40 
ture is determined using a hand-held surface probe. 
Several measurements of the surface temperature are 
taken and averaged to determine the nominal tempera- 
ture. The measurement is then corrected to account for 
the difference between the nominal temperature and 45 
some reference temperature. It normally takes approxi- 
mately one hour to perform the steps necessary to ob- 
tain one measurement. Anomalies in the steel tape used 
for the measurement and .defects in the surface to be 
measured can adversely affect the measurement. Since 50 
the measurement is technique-dependent, it is difficult 
to maintain a high degree of repeatability without sig- 
nificant training. Thus, using a steel tape, it is difficult to 
obtain a repeatable and accurate measurement of the 
perimeter of an External Tank section 4. 55 

SUMMARY OF THE INVENTION 

The present invention comprises a system for using 
ultrasonic waves to make linear measurements. The 
system is particularly useful for making perimeter mea- 60 
surements of curvilinear surfaces, but can also be used 
to make linear measurements of plane surfaces. More- 
over, the system can be used to make linear measure- 
ments where the use of conventional measuring means 
would be extremely difficult or even impossible. It can 65 
measure perimeters having lengths of more than 1000 
inches, as well as shorter lengths. In piecewise fashion, 
it may be used to measure unlimited distances. It may 
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also be used to determine discontinuities of surfaces of 
known dimension. 

BRIEF DESCRIPTION OF THE DRAWINGS 

For a further understanding of the nature, objects, 
and advantages of the present invention, reference 
should be made to the following detailed description, 
taken in conjunction with the accompanying drawings, 
in which like reference numerals denote like elements, 
and wherein: 

FIG. 1 is a side view of a Space Shuttle System com- 
prised of an orbiter 3 mated to an External Tank 2 to 
which two solid rocket motors 5 (one shown, one oppo- 
site) are attached. 

FIG. 2 is an exploded view of the external tank 
shown in FIG. 1. 

FIG. 3 is a perspective view of sensor assemblies of 
the present invention attached to a section of the exter- 
nal tank. 

FIG. 4 is a perspective view of a cabinet housing 
electronic equipment in accordance with the present 
invention. 

FIG. 5 is a perspective view of a wedge which is 
shown in use in FIG. 10. 

FIG. 6 is a perspective view of a wedge which is 
similar to that shown in FIG. 5. 

FIG. 7 is a bottom view of a wedge which is shown 
in FIG. 9 in accordance with the present invention. 

FIG. 8 is a perspective view of another wedge in 
accordance with the present invention. 

FIG. 9 is a perspective view of another wedge in 
accordance with the present invention. 

FIG. 10 is a sectional view of the system shown in 
FIG. 3. 

FIG. 11 shows a return waveform produced by the 
apparatus of the present invention. 

FIG. 12 shows the waveform of FIG. 11 displayed 
over a shorter time interval. 

FIG. 13 is a plan view of a reference standard in 
accordance with the present invention. 

FIG. 14 is an end view taken along lines 14 — 14 of 
FIG. 13. 

FIG. 15A is a side view of a sensor assembly in accor- 
dance with the present invention. 

FIG. 15B is a side view of a sensor assembly in accor- 
dance with an alternative embodiment of the present 
invention. 

FIG. 15C is a side view of a sensor assembly in accor- 
dance with another alternative embodiment of the pres- 
ent invention. 

FIG. 15D is a sectional view of a sensor assembly in 
accordance with yet another alternative embodiment of 
the present invention. 

FIG. 16 is a schematic diagram showing the intercon- 
nection of various components of the system of the 
present invention. 

FIG. 17 shows the system of the present invention 
being used to measure the perimeter of an External 
Tank section. 

FIG. 18 is a view similar to FIG. 17 showing the 
system of an alternative embodiment of the present 
invention in use. 

FIG. 19 is a perspective view of the sensor assembly 
shown in FIG. 18. 

FIG. 20 is a cut-away view taken along lines 20 — 20 
of FIG. 19. 
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FIG. 21 is an end view of a curvilinear object whose 
perimeter can be measured with the system of the pres- 
ent invention. 

FIG. 22 is a side view of another embodiment of the 
sensor assembly of the present invention. 

FIG. 23 is a an end view showing the sensor assembly 
of FIG. 22 in use. 

FIG. 24 is a sectional view of the preferred embodi- 
ment of the sensor assembly of the present invention. 

FIG. 25 is a detail thereof. 

FIG. 26 is a view of a clamp used with the sensor 
assembly shown in FIG. 24. 

DETAILED DESCRIPTION OF THE 
PREFERRED EMBODIMENTS 

A preferred embodiment of the present invention is a 
portable ultrasonic linear measurement system compris- 
ing a portable ultrasonic sensor assembly 10 (FIG. 3), a 
portable temperature sensor assembly 20, and a portable 
data/signal processing assembly 30 (FIG. 4). Multiple 
systems may be used concurrently to make a multiplic- 
ity of simultaneous measurements in various dimen- 
sions. 

The portable data processing assembly 30 (see FIG. 
4) comprises a portable cabinet 31 having shelves 32-37 
and four wheels 38 (only two of which are shown in 
FIG. 4) and containing all data/signal processing equip- 
ment. For example, an ultrasonic transceiver 40 sits on 
shelf 32. Ultrasonic transceiver 40 comprises a main- 
frame 41 and a display chassis 42 having a display 
screen 43, the purpose of which will be described be- 
low. A timer 44 sits on shelf 34. A computer 45, includ- 
ing data storage 56, a printer 55, a display 46 and a 
keyboard 47, sits on shelf 35, which slides out of cabinet 
31 to make access to the computer 45 and keyboard 47 
easier. A data acquisition unit 48 for temperature mea- 
surement sits on shelf 37. One or more of components 
40, 44, 45, and 48 may be combined into a single, more 
compact device. 

Portable ultrasonic sensor assembly 10 comprises a 
sensor housing 11 in which ultrasonic wedges 12 and 13 
(see FIG. 10) are disposed. Sensor housing 11 comprises 
sections (for example, two sections 28 and 29) which are 
individually or collectively adjustable with respect to 
one another. Sections 28 and 29 have holes and slots, 
respectively (not shown in the drawings), through 
which bolts 26 and 27 pass, securing housing 11 to 
clamps 16 and 17. Wedges may be temporarily or per- 
manently affixed to each housing by various means (for 
example, adhering, clamping, screwing) and disposed at 
various angles relative to each other including 0 °. For 
example, screws 25 may extend through holes in sec- 
tions 29 and 28 and internally threaded spacers 24 ex- 
tend between vertically aligned screws 25. Wedges 13 
and 12 are placed between or affixed to sections 28 and 
29 of housing 11, and threaded cylinders 24 are rotated 
in a direction which draws sections 28 and 29 together, 
clamping wedges 12 and 13 therebetween, thereby fix- 
ing the positioning of wedges 12 and 13 180 ° relative to 
one another. 

Ultrasonic wedges 12 and 13 each comprise a wedge 
50 (shown in more detail in FIG. 5) having a first sur- 
face 51 for acoustically contacting a subject surface area 
of a body to be measured and a second surface 52 for 
acoustically contacting an ultrasonic transducer. An 
ultrasonic transducer 14 acoustically contacts second 
surface 52 of ultrasonic wedge 12 and an ultrasonic 
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transducer 15 acoustically contacts second surface 52 of 
ultrasonic wedge 13. 

Surfaces 51 and 52 are relatively oriented such that 
ultrasonic waves emitted or received by ultrasonic 
transducer 14, when it is in acoustic contact with sur- 
face 52 of wedge 12, generate or detect surface waves 
which travel on the surface of a body when surface 51 
is in acoustic contact with the surface of the body. 
Wedges 12 and 13 are relatively oriented such that 
ultrasonic waves emitted by transducer 15, when it is in 
acoustic contact with surface 52 of wedge 13, generate 
surface waves which travel on the surface of a body in 
a desired direction relative to (such as opposite to) that 
of surface waves generated by transducer 14 when it is 
in acoustic contact with surface 52 of wedge 12. 

Clamps 16 and 17 apply pressure between housing 11 
and the wall of tank section 4, clamping wedges 12 and 
13 between housing 11 and the wall of tank section 4. 
There is preferably a coupling fluid between first sur- 
faces 51 of wedges 12 and 13 and the wall of tank sec- 
tion 4 to ensure that surfaces 51 acoustically contact the 
wall of tank section 4. There is also preferably a cou- 
pling fluid between second surfaces 52 and ultrasonic 
transducers 14 and 15 to ensure that the transducers 14 
and 15 and the wedges 12 and 13, respectively, remain 
in acoustic contact with each other. Cables 18 and 19 
connect ultrasonic transducers 14 and 15, respectively, 
to ultrasonic transceiver 40. 

Portable temperature sensor assembly 20 (FIG. 3) 
comprises a temperature sensor 21 and a toggle clamp 
22, which serves as a means for maintaining the temper- 
ature sensor in thermal contact with a structure whose 
temperature is to be monitored, which, in FIG. 3, is the 
wall of tank section 4. A cable 23 interconnects temper- 
ature sensor 21 and data acquisition unit 48. Tempera- 
ture sensor 21 is preferably a responsive, sensitive, high 
accuracy device such as a platinum resistance tempera- 
ture device (of suitable durability). There may be many 
such assemblies 20. Nominally theTe are four assemblies 
used for most measurements. 

FIG. 6 shows an alternative embodiment of a wedge 
in accordance with the present invention. Wedge 60 has 
a first surface 61 for acoustically contacting a subject 
surface area of a body to be measured and a second 
surface 62 for acoustically contacting a transducer, such 
as transducer 14 or 15. Wedge 60 also has a heel 63 
projecting perpendicularly outward from adjacent first 
surface 61. Heel 63 has a surface 64 which abuts against 
an end of a body whose length is to be measured. Heel 
63 acts as a means for assisting in the orientation of 
wedge 60 relative to the surface of the body. Wedge 60 
can be used to determine the length of finite length 
surfaces, such as semicylinders or plates. The operation 
of wedge 60 will be described below. 

Wedge 80, shown in FIG. 8, is another embodiment 
of a wedge in accordance with the present invention. 
Wedge 80 has a first surface 81 for acoustically contact- 
ing a subject surface area of a body to be measured, 
second surface 82 for acoustically contacting an ultra- 
sonic transducer 84, and a third surface 83 for acousti- 
cally contacting an ultrasonic transducer 85. 

Surfaces 81 and 82 are relatively oriented such that 
ultrasonic waves emitted or received by ultrasonic 
transducer 84, when it is in acoustic contact with sur- 
face 82, generate or detect surface waves which travel 
on the surface of a body when surface 81 is in acoustic 
contact with the surface of the body. Surfaces 81 and 83 
are relatively oriented such that ultrasonic waves emit- 
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ted by transducer 85, when it is in acoustic contact with 
surface 83, generate surface waves which travel on the 
surface of a body in a desired direction relative to (such 
as opposite to) that of surface waves generated by trans- 
ducer 84 when it is in acoustic contact with surface 82. 5 

Another embodiment of a wedge in accordance with 
the present invention, wedge 90, is shown in FIGS. 7 
and 9. Wedge 90 comprises a block 98 having a first 
surface 91, a recessed transmission chamber 72, a reser- 
voir 71, a vent 75, and fluid passageways 73 and 74 10 
providing fluid communication between reservoir 71 
and recessed transmission chamber 72. Vent 75 is re- 
cessed further into block 98 than is recessed transmis- 
sion chamber 72, and provides a means for allowing air 
bubbles to escape from recessed transmission chamber 15 
72 through passageway 74. Reservoir 71, vent 75, and 
fluid passageways 73 and 74 may be recessed in any 
surface as may be advantageous, based on the desired 
orientation of block 98 with respect to gravity. A cover 
plate or cap for reservoir 71 may be added. 20 

When wedge 90 is to be used on rough surfaces, 
rubber or other sealing means may be provided on sur- 
face 91 to maintain couplant within the area of wedge 
90. 

Wedges 80 or 90 may additionally comprise a heel, 25 
such as heel 63, or other means of edge reference. Re- 
cessed transmission chamber 72 may be omitted from 
wedge 90. Wedges 50, 60, 80, 90 may include certain 
characteristics as described in any of the other wedges 
as the application requires. 30 

Block 98 has disposed therein recesses 96 and 97 in 
which are disposed cylinders 94 and 95, respectively. 
Cylinders 94 and 95 are capable of being indexed with 
respect to block 98. A second surface 92 of wedge 90 is 
present on cylinder 94 and a third surface 93 of wedge 35 
90 is present on cylinder 95. Cylinder 94 and recess 96 
act as a means for relatively orienting first surface 91 
and second surface 92, and cylinder 95 and recess 97 act 
as a means for relatively orienting first surface 91 and 
third surface 93. Surfaces 92 and 93 may be oriented 40 
with respect to surface 91, at any angle between some 
minimum and maximum. 

Wedges 50, 60, 80, and 90 preferably are made of 
acoustic grade clear acrylic plastic, a material well- 
known in the industry and often used for acoustic 45 
wedges. 

FIGS. 13 and 14 show a reference standard 140. Ref- 
erence standard 140 comprises a number of reference 
lengths 131-138. Each reference length comprises three 
reference thicknesses 141, 142, and 143. Each reference 50 
length 131-137 also comprises an acoustic barrier 
(151-157) whereby a slot is cut between a reference 
length 131-137 and the reference length (132-138) adja- 
cent it. Acoustic barriers 151-157 may be cut at either 
end of reference standard 140. It may also be cut at both 55 
ends of the reference standard as required for direction- 
ality. By way of example, reference standard 140 could 
have a total length of 130.000 inches (i scale), each 
barrier 152-157 having a length of 16.250 inches, barrier 
151 having a length of 8.125 inches, and each reference 60 
length differing from the previous length by 32.500 
inches, each thickness 141, 142, and 143 having a width 
of 2.000 inches with thickness 143 having a reduced 
width of 1.900 inches on each length 132-138 along and 
beyond acoustic barriers 151-157, each thickness 141 65 
having a height of 0.500 inches, each thickness 142 
having a height of 0.320 inches, and each step 143 hav- 
ing a height of 0.200 inches. One could provide a refer- 
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ence standard whose dimensions are well known, and of 
relative scale to, and constructed of the same material as 
an object whose length or perimeter is to be measured. 
The velocity of acoustic waves in the material can be 
determined by using the measuring apparatus of the 
present invention to measure the amount of time it takes 
the acoustic waves to traverse these dimensions. The 
velocity thus determined can be used to determine the 
length or perimeter of the object to be measured. 

FIG. 15D shows a sensor assembly 310 comprising a 
sensor housing 111 and two wedges 312 and 313, which 
comprise wedges 80. Bolts 324 affix a calibrated caliper 
323 to sensor housing 111. Wedge 313 is affixedly at- 
tached to housing 111. Wedge 312 is attached to caliper 
head 321 by spacer 329, which extends through a slot 
328 in housing 111. Caliper head 321 has a display 322 
on the top thereof. Means for manual or automatic 
vernier adjustment of the position of wedge 312 is pro- 
vided. For example, a threaded rod 327 may be thread- 
edly disposed in a nut 325 affixedly attached to guide 
326 from housing 111, and is rotatably attached to 
spacer 329. Movement of caliper head 321 along caliper 
323 and tank section 4 may be effected by rotating rod 
327. Caliper head 321 also comprises an automatic posi- 
tion-sensing means which detects the position of wedge 
312 and displays the position on display 322. It may also 
send position information to computer 45. Wedges 90 
could be substituted for wedges 80. 

Sensor assembly 340 (FIG. 15 A) is similar to sensor 
assembly 310, except that wedge 313 is replaced with 
wedge 60, and wedge 312 is replaced with wedge 50. 

Sensor assembly 350 (FIG. 15B) is similar to sensor 
assembly 310, except that wedge 50 replaces wedge 313. 

Sensor assembly 410 is similar to sensor assembly 350, 
and sensor housing 411 is similar to sensor housing 111. 
Sensor housing 411 additionally comprises a heel 463 
for referencing housing 411 against the end of an object 
to be measured. 

The preferred embodiment of the sensor assembly of 
the present invention, assembly 510 (FIG. 24), com- 
prises a sensor housing 511 and wedges 512 and 513. 
While wedges 80 are shown as wedges 512 and 513, 
they could be replaced by any of the above-mentioned 
wedges. Sensor housing 511 is positioned on the surface 
of tank section 4 by gravity or mechanical means such 
as clamps 540 (FIG. 26) which comprise two jaws 541 
and 544, a tongue 542, release mechanism 547, and han- 
dles 545 and 546. An ablative material such as polytetra- 
fluoroethylene (PTFE) spacer 543 prevents tongue 542 
from coming into contact with and damaging tank sec- 
tion 4. A PTFE bolt 551 and hand-adjustable nut 552 
adjustably space jaw 544 from tank section 4. Jaw 541 is 
attached to housing 511. A positioning assembly 520 
comprises means for optimizing the angle between the 
transducers 514, 515, 518, and 519 and tank section 4 
and means for relatively orientating the axes of wedges 
512 and 513, for example, the X, Z, and Z-rotation axes. 
There may be a Z-translation stage 521, an X-translation 
stage 522, a goniometer 523 and a wedge attachment 
means 524 attached to each of wedges 512 and 513. 
Wedge attachment means 524 (FIG. 25) comprises two 
brackets 529 and 530 joined by a screw 527 and a nut 
528 which adjust their lateral displacement. A screw 
526 secures brackets 529 and 530 to the base of goniom- 
eter 523. Hand-adjustable screws 525 (some not shown) 
rotate/translate positioning assembly 520 in housing 
511. 
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When the ultrasonic linear measurement system of 
the present invention is not in use, ultrasonic transduc- 
ers 14 and 15 and wedges 50, 60, 80, and 90 may be 
stored in a transducer case 49 on shelf 36 of portable 
cabinet 31, and the remainder of ultrasonic sensor as- 5 
semblies 10, 310, 340, 350, 410, 510, temperature assem- 
bly 20, and cables 18, 19, and 23 may be stored on shelf 
33. A bottle 53 containing acoustic coupling fluid 54 
may be stored in cabinet 31 on shelf 36. Tims, all com- 
ponents of the ultrasonic linear measurement system of 10 
the present invention can be contained in cabinet 31, 
which can be transported to the site where it is needed. 

In operation, when it is desired to measure the perim- 
eter of tank section 4, one wheels cabinet 31 to the 
location of tank section 4. One places ultrasonic assem- 15 
bly 10 in acoustic contact with the wall of tank section 
4, as shown in FIG. 3. Temperature assemblies 20 (usu- 
ally four) are placed in thermal contact with the wall of 
tank section 4. 

When tank section 4 comprises 2219-T87 aluminum, 20 
wedges 50 preferably are approximately 2.070 inches 
long, 1.475 inches high, with an angle of 63.40° between 
surfaces 51 and 52, and may comprise part No. 57K0878 
made by Stavely NDT Technologies; tranducers 14 and 
15 are preferably 1 MHz transducers, such as part No. 25 
57A8311 made by Stavely NDT Technologies; opti- 
mum acoustic coupling can be achieved by using demin- 
eralized water between wedges 50 and tank section 4, 
and heavy viscosity ultrasonic couplant between 
wedges 50 and transducers 14 and 15. 

Once assemblies 10 and 20 are placed in acoustic 
contact with the wall of tank section 4, an operator 70 
(see FIG. 16) informs computer 45, via keyboard 47, to 
begin operations. The computer communicates with 
timer 44, data acquisition unit 48, and transceiver 40 to 35 
perform diagnostic testing of each individual unit and 
the entire system for proper operation. Computer 45 
then communicates with each unit to load the proper 
front panel settings for the particular part number or 
test article under test. The sensors 20, 10, are then tested 40 
for proper operation. The average temperature is deter- 
mined and printed. Computer 45 communicates with 
mainframe 41 of ultrasonic transceiver 40. Mainframe 
41 causes ultrasonic transducer 14 to generate ultrasonic 
acoustic waves 100 (see FIG. 10) in wedge 12 and initi- 45 
ates timer 44 measurement through display output 43. 
Waves 100 may be either longitudinal or transverse. 
The relative orientation of first surface 51 and second 
surface 52 of wedge 50 is such that the ultrasonic waves 
100 produce ultrasonic surface acoustic waves 101 on 50 
the surface of tank section 4 (as used herein, “surface 
acoustic waves’* or “surface waves” shall be understood 
to describe both the theoretical Rayleigh surface wave 
and the practical Lamb waves associated with thin 
plates). Surface waves 101 travel on the surface of the 55 
wall of tank section 4 in the direction of arrows 103 (see 
FIGS. 10 and 18). When waves 101 reach wedge 13, 
they generate ultrasonic acoustic waves 102 in wedge 
13. Ultrasonic waves 102 are detected by mainframe 41 
through transducer 15. The relative strength of return- 60 
ing ultrasonic wave 102 is detected by transducer 15. It 
is conditioned and amplified by mainframe 41 and is 
displayed as waveform 104 on display 43 in the form of 
voltage (vertical) as a function of time (horizontal). 
Waveform 104, and specifically peak 106 (FIG. 12) of 65 
spike 105 (FIGS. 11 and 12) is used by timer 44 to deter- 
mine the time of propagation of waves 100, 101, and 102 
from transducer 14 to transducer 15. 


8 

Transducer 14 transmits a plurality of waves 100, 
adjacent waves 100 being spaced far enough apart in 
time such that a wave 102 corresponding to a first wave 
100 generated by transducer 14 is detected by trans- 
ducer 15 before the next wave 100 is transmitted by 
transducer 14. 

The measurement program in computer 45 deter- 
mines the constant for the speed of ultrasonic surface 
waves for the type of material making up tank section 4. 
It obtains a number of individual temperatures from 
data acquisition unit 48 (which received the tempera- 
tures from sensor 21 via cable 23) and calculates their 
average. It sets the correct signal level such that wave 
form 104 will be detectable by timer 44, based on the 
characteristics of the tank section 4 (approximate length 
and type of material) and the average temperature. It 
obtains a multiplicity of samples, for example one hun- 
dred, each sample consisting of the measured time inter- 
val between generation of wave 100 by ultrasonic trans- 
ducer 14 and the receipt of wave 102 by ultrasonic 
transducer 15. It deletes out of range samples, and ad- 
justs the measurement for temperature, shift and trigger 
point, distance between transducers 14 and 15 and other 
offsets and corrections. It then plots average tempera- 
ture and average length, then it prints the time, signal 
strength, length, temperature, standard deviation, and 
number of samples used. 

Detailed information about the software used in the 
present invention, including a copy of a program, can 
30 be found in Appendix A attached hereto. Detailed in- 
formation about the hardware can be found in Appen- 
dix B. 

FIGS. 18, 19, and 20 show a portable ultrasonic sen- 
sor assembly 110 which is similar to, and can be used 
instead of, portable ultrasonic sensor assembly 10. It can 
be used to determine the propagational velocity of, and 
to measure the perimeter of, a curvilinear body, such as 
tank section 4. Portable ultrasonic sensor assembly 110 
is advantageous in that only the relative offsets of the 
wedges used need be known. Additionally, the velocity 
of surface waves on the surface of tank section 4 can be 
determined at the same time that the distance is being 
measured, as will become apparent shortly. 

Transducers 114 and 215 (not shown in FIG. 18) are 
placed in acoustic contact with surfaces 92 and 93 of 
wedges 112 and 113 (each of which comprises a wedge 
90 as shown in FIGS. 7 and 9), respectively. Wedges 

112 and 113, which could alternatively comprise 
wedges 50, 60, or 80, are placed a predetermined dis- 
tance apart. Wedge 113 is clamped to sensor housing 
111 in the same manner that wedges 12 and 13 are 
clamped to sensor housing 11 and wedge 112 is attached 
to caliper head 321 through spacer 329. Wedges 112 and 

113 and housing 111 are placed in acoustic contact with 
tank section 4 with clamps 116 and 117 with first sur- 
faces 91 of wedges 112 and 113 in acoustic contact with 
the surface of tank section 4. Acoustic coupling fluid 
(preferably demineralized water) is used to acoustically 
couple surfaces 91 with the surface of tank section 4. 
The coupling fluid is preferably poured into reservoir 
71 after wedges 112 and 113 are clamped to tank section 
4. Surfaces 92 and 93 of wedge 112 are oriented relative 
to surface 91 of wedge 112 such that the signal strength 
of the ultrasonic waves is maximized. This can be done 
by trial and error by starting with surfaces 92 and 93 
near the theoretically determined optimum angle with 
respect to surface 91 and varying the relative angles of 
surfaces 92 and 93 until the signal strength is at a maxi- 
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mum. This normally takes only a few moments. The 
same optimization technique is then performed using 
wedge 113. Optimization takes place by alternating 
between wedges 112 and 113 until no further optimiza- 
tion is necessary. The positions of wedges 112 and 113 
are then locked to prohibit inadvertent movement dur- 
ing measurements. Offsets are entered into the com- 
puter. 

Once the proper angle between surface 91 and each 
of surfaces 92 and 93 has been determined and locked in 
place, measurement of the perimeter of tank section 4 
begins. An ultrasonic wave 205 is generated by ultra- 
sonic transducer 215, which is in acoustic contact with 
third surface 93 of wedge 113. This ultrasonic wave 
travels through wedge 113 and generates a surface 
wave 202 on the surface of tank section 4. Surface wave 
202 travels in the direction of arrow 203 to wedge 112, 
where it generates an ultrasonic wave 204 which travels 
through wedge 112 and is detected at surface 92 of 
wedge 112 by ultrasonic transducer 114, which is in 
acoustic contact therewith. Wedge 112 is then moved 
an incremental distance from wedge 113 by rotating rod 
327 and the previous steps are repeated. This process 
takes place a multiplicity of times until the differential 
velocity measurements converge statistically within the 
required measurement tolerance. All the data is then 
statistically analyzed and corrected for relative lateral 
and angular position of the wedges. The velocity of 
surface waves on the surface of tank section 4 is calcu- 
lated by statistically analyzing the incremental time 
intervals between transmission of the ultrasonic waves 
205 in wedge 113 by transducer 215 and detection of the 
ultrasonic waves 204 in wedge 112 by ultrasonic trans- 


it) 

ducer 114, and dividing the known, predetermined and 
incremental distances by that time interval. 

. The perimeter of tank section 4 is determined by 
measuring the time interval between transmission of the 
5 ultrasonic waves 205 in wedge 113 by transducer 215, 
and reception of wave 204 by transducer 114 in wedge 
112, and multiplying that time interval by the experi- 
mentally determined velocity and correcting for certain 
other constants (such as distance between wedges 112 
10 and 113). 

One could use a wedge 80 (FIG. 8) or 90 (FIG. 9) 
without a sensor housing. For example, one could at- 
tach cables 18 and 19 to ultrasonic transducers 84 and 85 
(see FIGS. 22 and 23), respectively. A single wedge 80 
15 would act as the transmitting and receiving wedge, the 
ultrasonic wave being generated at surface 82 and de- 
tected at surface 83. The wedge 80 could be placed in 
acoustic contact with a surface (such as tank section 4) 
whose perimeter is to be measured with one’s hand or 
20 other mechanical means (such as clamp 17). The opera- 
tion otherwise would be similar to the system using 
wedges 12 and 13. 

A three-dimensional curvilinear body 210 is shown in 
end view in FIG. 21. One can readily see how difficult 
25 it would be to measure the perimeter of body 210 with 
a steel tape. Using the system of the present invention, 
the perimeter of body 210 can be measured as easily as 
that of tank section 4. 

In view of the numerous modifications which could 
30 be made to the preferred embodiments disclosed herein 
without departing from the scope or spirit of the present 
invention, the details herein are to be interpreted as 
illustrative and not in a limiting sense. 


35 

APPENDIX A 


A.l SOFTWARE OVERVIEW 
A.2 SOFTWARE DESCRIPTIONS 
A.3 SOFTWARE LISTINGS 


i .0 Software Overview 

There are four main programs that are executed by the main computer 
'Autost'. ’DGN'OS2\ 'FPSMOD', and 'TCC704'. The programs included here are subject 
to change without notice and are intended to generally convey the measurement 
process structure rather than focus on the specific commands. The software was 
written in a Hewlett Packard version of the BASIC programming language (HP 
Basic) for use on an 85B personal computer that has advanced programming and 
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I/O ROMs installed. The complete program listing follows this more general 

description. 

1.1 Autost 

Designated as 'Autost', this program is automatically started ( Auto matically 
Ltarted) on power-up. It initiates execution of the rest of the programs and sets 

the system time and date. 

1.2 DGNOS2 

Designated 'DGNOS2', the program indicates the :e:ond major revision of 

the program designed to perform the system diagnostics (D ia G N 0 S tics IT). 
Included in the software are the communications, calibration, command string 
and operation verification checks. 

1.3 FPSMOD 

Designated 'FPSMOD', the program was designed to handle data base 

inquiries, modifications, deletions, and additions, generally described as front 
panel setup modifications (Front Panel Setup MOD ificati.ii •> 

1.4 TCC704A 

Designated 'TCC704', the program was designed to perform the measurement 
and remotely control the individual pieces of equipment involved in the 

measurement process. It includes a timer correction constant introduced in the 

1987 major revision 04 (Timer Correction Constant - 1987 major revision 04) . 


2.0 Software Description 

The following is a general description of the individual subroutines and 
main drivers that form each program. The line numbers refer to the line on 
which the subroutine begins. They are also indicated in the program printout bv 
the hand marked lines. 

2.1 Autost 

2.1.1 Main driver 


Description 

Designation 

Configuration: month-day-year-time 

Initializations 
System time clock and date 
transfer of control to DGNOS2 


Subroutines 


None 




DGNOS2 



2.2. 1 
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Main driver 
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Line 

# Description 

10 

Designation 

20 

Configuration: month-day-year-time 

30 

Address definitions 

130 

Array definitions 

133 

Initializations 

240 

Check communications port 

390 

Check data acquisition equipment (temperature ; 

580 

Check timer equipment 

750 

Check ultrasonic transceiver 

860 

Transfer of control to TCC704 

970 

Error Messages & transfer of control 

2.2.2 Subroutines 

2.2.2. 1 

Parallel interface (HPIB) 


Line # Description 


1100 

Switching and Handshaking : 

test 

1370 

Status bit test 


1490 

Error messages & transfer of 

control 


Data Acquisition Equipment (HP 

3421 A) 

Line # 

Description 


1600 

Initialization test 


1800 

Confisuration test 


1920 

RAM-ROM-A/D test 


1980 

Relay test 


2160 

Reference junction test 


2190 

General setup test 


2350 

Status word acquisition 


2411 

Status word printing 



Timer Equipment (HP 5335A) 


Line # 

Description 


2420 

Serial Poll status check 


2550 

Initialization 


2710 

Self Diagnostics 



Ultrasonic Equipment (QC 2000) 



Line # 

Description 


3890 

Configuration check 


4140 

Error messages and transfer of control 

4180 

Print status bytes 


4610 

Automatic Gain Control 


4860 

Initial display setup (5000 ms 

window) 

4950 

Measurement display setup (50 

ms window) 

5040 

Bit masks for gain control 


5200 

Check for signal level 


5380 

Error message and transfer of 

t * T . > 
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15 



5430 

Store new setup 


5530. 

Program module 


5600 

Store in memory block 1 


5660 

Recall current setup 


5710 

Recall setting in memory block 1 


5790 

Lock out front panel controls 


5840 

Set sweep length 


5970 

Set blocking delay to center signal in display (50 ms window) 


6060 

Set divisor for echo or thru beam modes 


6110 

Get 100 time samples 


6300 

Check for samples within set tolerances 


6410 

Son measurements and delete ones out of tolerance 

2. 2.2.5 


General use 


Line 

# Description 


4260 

Part number data entry format 


4420 

Part number check and search 


4530 

HPIB Reset 

2.3 

FPSMOD 

2.3.1 

Main 

driver 


Line 

# Description 


10 

Designation 


20 

Configuration: month -day -year- time 


30 

Initializations 


110 

String array definitions 


301 

Array definitions 


308 

Integer definitions 


322 

Real number definitions 


410 

Initializations 


510 

Main Menu 


640 

Change Menu 


760 

Add Menu 


880 

Print Menu 


1000 

Program 'completion and transfer of control 


1070 

Error messages and transfer of control 

2.3.2 

Subroutines 

2.3.2. 1 


General use 


Line 

# Description 


1100 

Part number formatting 


1210 

Part number check and search 


1310 

Pan number delete 


1440 

Part number add 


1680 

Part number print 


1780 

Sensor combination change' 


1840 

Sensor combination add 


1980 

Sensor combination print 


2160 

Timer configuration change 


2370 

Timer status check 


2460 

Timer configuration store 



2.4 

2.4.1 


2.4.2 
2.4.2. 1 
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2670 Timer status prim 

2900 Data Acquisition status check 

3050 Data Acquisition status print 

3210 Data Acquisition add 

3460 Data Acquisition configuration store 

3700 Timer configuration decode 

3880 Ultrasonic configuration ch'nge 

4160 Ultrasonic status byte print 

4270 Ultrasonic program byte pri t 

4390 System configuration data stc ge (on tape) 

4480 Automatic Gain Control 

4730 Initial display setup (5000 ~s v indow) 

4820 Measurement display setup (. 0 ’ns window) 

4910 Bit masks for gain contr ; 

5070 Check for signal level 

5250 Error message and transfer rf control 

5300 Store new setup 

5400 Program module 

5470 Store in memory block 1 

5530 Recall current setup 

5580 Recall setting in memory block 1 

5660 Lock out front panel controls 

5710 Unlock front panel controls 

5760 Set sweep length 

5810 Set blocking delay to center signal in display (50 ms window) 

TCC704 
Main driver 

Line # Description 

10 Designation 

20 Configuration: month-day-year-time 

30 Initializations 

90 String array definitions 

310 Array definitions 

550 Integer definitions 

570 Real number definitions 

1160 Initializations (see also 7560) 

1590 Load system configuration 

1710 Measure length 

Subroutines 

General use 

Line # Description • 

1790 System operation verification an 1 s '• .sor checks 

2000 Perform measurement 

2240 Timer configuration load 

2340 Error messages and transfer of control 

2380 Data Acquisition configuration load 

2470 Error messages and transfer of control 

2520 Ultrasonic configuration load 

2750 Error messages and transfer of control 
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2790 Ultrasonic program byte print 

2870 Part number formatting 

3000 Part number check and search 

3170 Measurement statistics prim 

3430 Measurement session terminate , verification 

3520 Graphics print: screen, seconds ' nches histogram 

3720 Close files and terminate prograr „■ 

3780 Time and measurement data set , ~ nt 

3860 Reset HPIB * - 

3940 Determination of graph vert' '/horizontal position 

4000 Graph print and clear, point eset 

4110 Graph vertical shift 

4170 Temperature (RTD) conversion tr. centigrade 
4320 Temperature conversion - centig.ade to Fahrenheit 
4360 Individual RTD conversion - resistance to Fi-hrenheit 


3.0 SOFTWARE LISTING 


L0AD"fiuTOST " , . 

2*617 — 7 43 c> S.'/TSS 

LORD" 0GN0S2" 

1 1518 OS££> [8 
L0fiD"FPSM0D" 

12554 1^4-^354^5 

LOflD" T £C70^^ ^45, 5V75 ^ 




1 

i 


CAT 12- 
NAME 
R-’NDAT 
FPSDH T 

HU to? t 

DGN0S2 

TCC764 



OhTaI 

/riftToJ 

PROG 

PROG 

PROG 


NULL 
rf> 0 G 
NULL 


P R 0 G 


n o n it 




10 I 

2 0 1 6t 1 S S 7 O S 1 5 0 1 1 0 S 6894 ft 

30 CLEAR 

40 ! ENABLE KBD BTD <” 0000808 1 u > 

SO INTEGER 0 
60 REAL T 
70 T = O 
5 m n = y 

98 5 ISP 11 ULTRASONIC LINEAR MEAS 
UPEMENT" ; "SYSTEM" 

IOC BEEP 30,300 

1 1 0 MAT T 3000 

TZ0 E'i * Y STEM TIME ~C LOCK 
130 DI5P "TIME <HH r MM 1 SS > " fi B 

EER 90,100 0 INPUT R£ 

140 T=HMS* Fri > 

130 SETTIME T , 0 

1 E 0 D I S F’ "DATE •- M M ’ 0 0 Y Y 7 Y > " A 

BEEP 140,100 6 INPUT Rf 
170 D = M 0 V < R J - 2 4 y 0 ft y 0 
1S0 SETTIME TIME , D 
190 CHAIN “0GN0S2 " 




» 0 1 0 -- ; 0 ~ 3 0 322 3 7 1 0 0 3 

1 £ N AEl E k! S D B T D " 0 8 0 0 0 8 0 0 " > 


30 
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A *3 : 

SELECT 

CODE 

S USED 

7ft i 

? = 

HP It 

INTFCE SEL CDE 

■2ft { 


DEUI 

CE SEL CODE 

90 ! 

?ftl = 

34 21 

A D A T h L O G G E R 

100 1 

902 = 

save 

FOR 3421 L 0 G R 

110 1 

9 U 3 = 

it -7 -7 er 

UN IV TIMER 

1 20 1 

*04 = 

Q C 2 ft ft ft P - J L S E ■' R E C V R 


130 DIM EU -:.2S > , bl '.So, 1 ,M0< 101 > 

131 DIM CO5C303, MTC21033, M1SC213 
3, S1TC2643, S2TC2643, S4SC2643 


40 


MR- 00? 

! C 0 ■£ - 11 Fr» & ■£ :i? n 1 4 f 

_J 4 ’* 

C 0 ? = u L.A £.f": A u 1 — u ^ *- H g -5 * P _T 
4'* 


140 DISP “DIAGNOSTIC ROUTINE" 
; EG u A I T 3000 


45 190 DIM AXC303, SI < 24 > 

210 S E 1 T I M E 0 U T 9-5 0 0 0 
2 2 0 ON TIME 0 U T 9 G 0 TO 97 0 

2 ~ ft ; 

240 ! CHECKING HPIB (FROM P . 75, 
HPIB MANUAL 82537-506 1-7) 

50 250 OISP "CHECKING HPIB" 

270 GO SUE 4530 ! RESET HPIB 
310 GOSUB 1110 » SW & HOSHK 
320 GOSUB 1368 ! STATUS TEST 
330 DISP “HPIB TEST COMPLETE" 

7 ?. ft * 

55 350 ! CHECKING 342 18 DATALOGGER 
400 DISP "CHECKING 3421 A" 

410 ON TIMEOUT 5 GOTO 1830 
450 GOSUB 4530 ! RESET HPIB 
580 SI <0>=SPOLL<981 > 

^ 510 IF S' 1 < 0 > # 1 OR 0 THEN GOTO 16 
10 ' SR0, ABNORM, BAT, EVENT, ER 
R, RESET 

520 WAIT 3000 

u — i j M L- U u i o . j y * -j- 4 w 1 H DiGNOS 
540 DISP "3421ft TEST COMPLETE" 

65 

530 f CHECKING 5335ft TIMER 
550 DISP "CHECKING 5335R" 

800 ON TIMEOUT 5 GOTO 1050 
840 GOSUB 4530 ! RESET HPIB 
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670 S 1 v 8 > =SPOLL< ? 0 3 ) 

6 8 0 IF S 1 C 9 >1 THEN G 0 T 0 106 A 
SRd, GATE, FA IE, ERR 
650 WAIT 30O0 

700 GOSUB 2420 » 5335A OIGNAS 
710 DISP " 5335A TEST COMPLETE* 
730 WAIT 30O0 
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1 400 
-1410 

1420 
1430 
1 440 
1450 


22 

CONTROL 5-3 • 8 

STATUS 9,0 ; B 1 , E 2 , B 3 , B 4 , E 5 

, B6 

IF B 1 # 1 THEN GOSUB 1570 
IF B2#8 THEN GOSUB 1570 
IF B3#64 THEN GOSUB 1578 
IF B4#8 THEN GOSUB 1570 



i 






1 468 

IF B 5 # ft 1 THEN G 

QSUB 

1570 

750 

i 

CHECKING 

QC 

2000 

PUL SEE 


1 470 

IF B 6 # 1 6 8 THEN 

GOSU 

B 1570 

7 6 O 

D I 

SP “CHEC 

K I N 

G G C 2 

0 0 0 " 

10 

1 4x0 

C CTTI IC*M 



77y 

ON 

TIMEOUT 

Q 

GOTO 

1 0 7 0 

1 490 

DISP “HANDSHAKE 

ERR 

8 P P R 0 B ft 

810 

GO 

SUE 453y 

1 

RESET 

HP IE 



ElE" ; "PROCESSOR 

OR 

XL A TOP: F 

840 

SI 

C 0 :* = ‘5 POLL c 5 

y4 > 




A I LURE" 



850 

IF 

SI C0*.*#8 

THEN GO 

T 0 1 0 1 0 


15 0 ft 

Pttjipm 


— 

C - 
O -J ■ j 

C V 


“ 4 A 

4444 4 

440<<<<M<<4 


T5T^“ 

DISP “XL A TOR IS 

NOT 

CLEAR W 


H A 

4<<<<AT. 

05 

BT . 5 

0 " 



HEN" ; “EXPECTED- 

PROB 

ABLE XL A 

856 

OU 

TPUT 503 

us 

ING " 

#, 2 A , 30 ft • 7 

13 


TUR OR" ; “ P ROCES 

SOR 

FAILURE" 


A ■ 

14 A" ; " 

FB" 

; C; 2 . 

“ T F: 1 ", “AT. 


1 5 -■ A 

E£X1L£^ 




05 

BT 5 

it 




1530 

DISP "SWITCHES 

HOT 

R E A D I N G 


b K' y WAIT 3 y 0 y 

b 7 0 G 0 S U B 3350 ! Q C 2 0 Q 0 0 1 1 Z N 0 S 
SS0 DISP " 002808 TEST COMPLETE" 
510 ! 

520 DISP “ALL DIAGNOSTICS COMPlE 
TED" 


530 B E r. P 6 0 0 , 18 8 
540 WAIT 3OO0 
550 CHAIN " TCC784 " 

570 BEEP S DISP "DEL 1 ICE 

^ 7 7 *.1 z 

ou r - check i 0 “ 


530 C 

ISSUE 4 S3© ! RESET 

HF IB 

1 01 0 0 

DISP "TYPE 1 I N I T 1 11 

<i S T ■' r 

10 10 

1 


1020 

BEEF 6 DISP "OEVIC 

E REQUIRE 


S SERVICE" & STOP 


\ ii 70 

i 


1 040 

DISP "3421ft NOT ft 1 ., 1 

HILABLE" 


>5 GOTO 570 i SKI r- 

TO NEXT 

1 050 

1 


x 6 8 

Uibr -‘5-3b5H NOT A V? 

filLABLE" 


ft GOTO 740 ! SKIP 

1 i £ V 7 

1 070 

1 


lyse 

D I bP "QC2800 NOT n 

7 • r '3LE" 


e GOTO 910 ! SKI. 

\ XT 

1 A* A 

I 

_ 

1 100 

1 HPIB DIAGNOSTIC 

ROD ’ ,4E 

1110 

DISP "CHECK SWITCH 

AND HAND 


SHAKE" 


1130 

A2=0 


1140 

ft 1 =53 


1 150 

W 1 0 5 , 0 2 


1 160 

W 1 0 5,1; 230 


1 170 

IF R I 0 C 5 , 0 > < 128 THE N 1 2 1 0 

1 ISO 

Fi2=fi2+ 1 ft IF ft2>2 

THEN GOSU 


E 1490 


1 158 

IP ft2=3 THEN 1210 


1 2 8 O 

GOTO 1170 


1210 

N 10 5 . A ; ti 


1220 

W I 0 5 , 1 ; 3 


1 23G 

W I 0 9 , 0 ; 2 


1240 

fi2=fl2+l ft IF fi2>4 

.‘HEN GCSU 


B 1510 


1250 

IF fi2=4 THEN 1270 


1 26 A 

GOTO 1230 


1270 

W 1 0 5 , 8 ; 2 


1280 

W I 0 5,1; 120 


1 250 

W I 0 9.0 0 


1 3 8 O 

IF PIC": 9, 0X1 T-.'N 

7 ft A 

1310 

A 1 =R I 0 


1320 

I r P 1 0 C 5 , O # 0 THEN 

GOSUE 15 


10 


1 330 

IF ft 1 . 192 THEN ft ! = 

Al-152 

1 340 

IP ft 1 if 53 THEN RETURN 

1350 

RETURN 


1 379 

DISP “STATUS TEST" 


1350 

H S S E R T 5-64 



AS SUSPECTED DEFAULT" 

1540 AS=DTBSCH1 ;■ 

20 1550 DISP “SWITCHES 2-7 READ AS 
M *A$C11, 1 63*1: ” -EXPECTED 1 181 
01 “ 
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1 *6 A 

1579 

1580 

1 550 


DISP "STATUS ERROR" 

DISP “STS BYTES = " ; B 1 ; B £ • B 3 ; 
B 4 ; B 5 ; B 6 

RETURN 


TTTTTTT 
1610 
1 620 
1630 
30 isse 
1 700 
1710 

1729 

35 1738 


1740 
1750 
1 760 
1 770 
1 750i 


> 3 4 2 1 A DIAGNOSTIC ROUTINE" 
OH TIMEOUT 5 GOTO 970 
GOSUB 4530 ! RESET HPIB 
GOSUB 2350 ! STATUS 
! INITIALIZATION CORRECT 
IF S 1 ' 5 j * 8 6 THEN 1750 ! MAS 
K 

IF SIC 5/ #255 THEN 1750 ] SC 
AN 1 

IF SIC 10:* #255 THEN 1750 ! S 
CAN 2 


40 


45 


S 1 < 

1 7 } * 1 7 

THEN 

1 

750 1 

' FU 

ION 






SIC 

1 3 ) # 3 6 

THEN 

1 

79y ! 

' FA 

SIC 

15,- #23 

THEN 

1 

750 ! 

1 VO 


If 

NGE 
If 

LTMETEF 

I- SI c 20.) #133 THEN 1750 ELS 
E 1300 ' RESOLUTION * 

£:EEP 6 DISP "3421 HOT INITI 
HLIZIHG" 6 GOSUB 2411 fi RET 
URN 


55 


60 


l c ; y y 

! ft B N 0 P M A L C 0 N D 

IT! ON** 



1 3 i 0 

IF e I T C 8 1 c 1 > , 5 .? 

THEM 

1 020 


1S20 

IF B I T C 8 1 C 1 > . > > 

THEN 

1 820 


1 830 

1 MPX CARDS IN 

SLOTS 

0 . 1 V 


1840 

IF BIT C S i < 6 > , 0 > 

THEN 

1850 



LSE 1910 ! SLOT 

0 m u :» 



1850 

IF & I T C 8 1 C 6 > , 1> 

THEN 

1 860 

2 


LSE 191© ! 1 MU 

v 



I860 

IF BIT C S 1 < 6 > , 2 > 

THEN 

1510 

i 


2D 




I 870 

IF B I T C S 1 C 6 > , 4 > 

THEN 

1510 

i 

1880 

IF BITCS1 C6>,5:.' 

THEM 

1 5 1 8 

i 


ID 




1 850 

IF B I T \ S 1 C 6 ) , 6 •' 

“■ r.< 

THEM 

1510 

i 

1 5 8 0 

IF SION then 

1 5 1 8 

ELSE 

< 


920 1 ACTUATOR 




151 0 

BEEF 0 DISP "«P 

0 N G I. 

■0 EO: 

- = 


D CONFIGURATIO 
1 1 S RETURN 




I 510 — 1 Kn!'!-rU!‘)-h/Li ERROR * 

1530 F 0 R N = 0 TO 6 
1 540 IF EIT CS1 C3> , N > THEN 1570 
1550 NEXT N 


65 



23 
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2956 GOTO 2980 

2 970 BEEP 0 6 ISP "RAM-ROM-A/'O £R 
POP" 8 GOSUB 24 2 2 i? RETURN 

1 j 0 *-■ — *T 00 RETTHTS i.Lu-:t .' 

2 990 OUTPUT 981 ; 'CRN" 

2808 FOR: M = 0 TO 9 

2810 OUTPUT 901 .. " 1 ° 11 , M 
2828 GOSUB 2358 ! RT'j US 
2038 Sl<9)*BINAND< .< >»63> 1 tip 
SK OFF TOP E x 

2048 S 1 (. 1 8 >=B INAND ■: ._ ' 1 i ,63) 

2850 IF SHS)#N THEN L r L j 
2868 IF SK10:i#M+16 THE.. 2158 
2070 OUTPUT 981 "QPN“ > M 
2880 GOSUB 2350 ! STATUS 
2890 SI <9)=BINAND<S1 (9> .. 15) < MR 
SK OFF TO fP BITS 
2100 SKI 0? = B I N AND <S 1 < 1 0 > . 15 ' 
2118 IF S 1< 9 > # 15 THEN 2150 
2120 IF S 1 < 1 8 } # 1 5 THEN 2150 
2138 NEXT M 
2148 GOTO 2188 

2150 BEEP g DISP "RELAY FAILURE" 

0 GilFIIF: 2A1-1 |S pCTupt.t 

2160 ! MEASUREMENT SETUP " OK'- - 
2178 ON ERROR GOTO 2330 

2180 SET TIMEOUT 9 ■ -QOOR 

2181 OUTPUT 901 F" 

2182 ENTER 901 R: 

2183 IF VftL<R*>>40 * ? UAL <RS > <2'i" 

THEN 2185 ELS . 2190 
2185 DISP "REFERENC- JUNCTION OU 

T OF rpt " i- 1 pet 

'2190 OUTPUT 901 r-FW ' j- 9 " 

2200 FOR M= 1 TO •- 

2218 ENTEF 901 , MK.M ■ 

2220 1 IF Ml < M ’> <9© OR M 1 M :• > 1 i O 
THEN 2330 
2230 DISP Ml CM' 

2248 NEXT v, 

2245 OUTPUT 901 ; "0PN9” 

2250 GOSUB 2350 1 STATUS 
2260 IF S1<1>#0 THEN 23^0 
2270 IF SKI 7 >#36 THEN 2340 
2280 IF S 1 < 1 8 > = 3 6 OR Sl<18) = 41 T 
HEN 2290 ELSE 2340 
2290 IF SK 19)454 THEN 2340 


2 7 0 0 

IF Sl<20 ># 133 THEN 

2340 

2F2PI 

RETURN 


" 2330 

BEEP a DISP "READING OUT OF 


TOLER ANCF" J». RFTU 

R N 

2-340“ 

BEER •> DISP “SETUP 

FAILURE” 


g GOSUB 2369 6 GO 

SUE- 24 1: 


>2 OFF ERROR RETURN 

2360 

! GET STATUS REG 

VALUES 

LL '• i 

0 U T P U T 90 1 .• " S R " 


2330 

FOR N=X TO 24 


2320 

ENTER 901 } SKR) 


2400 

NEXT N 


24 10 

RETURN 


2412 

— f ' 

! PRINT STATUS 


2413 

FOR N= 1 TO 24 


2414 

B 1 S=DTBS < S 1 < N ) > ! 

BIN 

2415 

H1S=DTH$<S1<M>> ! 

HEX 

2416 

PRINT "BYTE* 1 ; N; “ = 

" ;BUC2, l 


S3 • u = w ; HUES, 40; 

11 H = 11 , CH 


RKS1CN)) 


2417 

NEXT N 


2413 
— 2428 ■ 

RETURN 



2430 ! 5335A DIAGNOSTIC ROUTINE 
2435 OFF ERROR 

2440 GOSUB 4538 ! RESET HPIB 
2480 OUTPUT 903 KIN" 

2490 S 1< 0 ) =SPOLL < 983 > 

2500 IF BITCSl <0> » 1 ) THEN 2690 


24 

2510 i:- BIT <31 <0> ,2> THEN 2699 
2520 IF £ I T < S 1 < 0 > , 3 > THEN 26S&' 
2530 IF BITCSl <8> , 6> THEN 2630 
254 0 IF B I T ■ ' w ft a . z 1 T MP Ki 
cT55Tt ! INITIALIZATION CORRECT 
2560 OUTPUT 903 ; "pQ" 

2570 ENTER 903 USING 1, #,30fl , ‘ ; A 
5“ 

2620 ! EVALUATE THE BYTES 
2630 IF fl#Cl,13#CHR*<l> THEN 270 
0 

2640 IF ASC2, 23#CHRS<0> THEN 278 
0 

2650 IF ASE3, 33ftCHR$<0) THEN 278 
0 

2660 IF ASC4, 434CHRSC32) THEN 27 
00 

267 Ci I" AIC3 , 534CHR3'- 32 1 THEN 2" 
00 

26S0 IF ASC6, 63“CHRS<0.* THEN 278 
0 ELSE 27 1-: 

2698 BEE? S DISP "5333A REQUIRES 

■; &f 4 , I':f- , i— i l EEiuEii 

270O BEEF '? DISP "TIMER INITIAlI 

~&TT'~|H Chi' [ipc- ft CCTI'Ct.; 

4.10 i WITHIN CALIBRATION 
2720 SET TIMEOUT 9 ; 25000 
2730 OUTPUT 983 .“FN99" 

2748 FOR H= 1 TO 5 
2758 ENTER 903 : MS 
2760 ! PRINT MS 

2778 IF N= 1 AND UAL < MSC23 ) #0 7H- 
N PRINT MS 

2780 IF N=2 AND UALvMSC23 ' <4 - 

P N=2 AND VAL<MSC23)K i t- 
EH PRINT MS 

2790 IF N=3 AND A L c MS E 23 • <2 9 r 
P N=3 AND U ~_< MSC23 :■ 1 3 1 7.- 
EN FRINT MS 

2808 IF N=4 AND UAL<MSC23> I 
OR N=4 AND UAL < MSC23 > > -M tl 
EN PRINT Ms 

2818 IF N=5 AND UAL (MSC23 ) #8 T-- 
N PRINT MS 
2820 NEXT N 

2830 OUTPUT 983 XMS’O" 

2840 FOR N= 1 TO 3 
2358 ENTER 903 ; MS 
2S60 IF VAL<MSC23,'#0 THEN PRINT 
MS 

2870 NEXT N 

2880 OUTPUT 98- \ ' -M'-.26" 

2890 ENTER 903 . . 

2900 IF VAL<MSC2j^ ' 1 or UAL<M 
$r.23>>-4.9 THE PRINT MS 
2910 OUTPUT 903 ; " PH1MS27" 

2920 ENTER 903 ; MS 
2930 IF VAL<NSC23X1300 OR UALCM 
SC23 >>2800 THEN PRINT MS 
2940 OUTPUT 903 ;"RH0MS23" 

2950 ENTER 903 ; MS 
2968 IF UAL<MSC23 > <4 . 9 OR URL<MS 
C23>>5. 1 THEN PRINT MS 
2978 OUTPUT 903 KRH1MS2S" 

29:58 ENTER: 903 ; MS 
2990 IF UAL <MSE23) <3500 OR UAL <M 
SC23 > > 3700 THEN PRINT MS 
3800 OUTPUT 903 .;"PH«MS31" 

3010 ENTER 903 ; MS 
3820 IF UAL<MSC- 1X4.9 OR UAL<MS 
C23>>5 . 1 T - IN PRINT MS 
3830 OUTPUT 903 "RH 1 MS~ 1 “ 

3040 ENTEF; 983 MS 
3850 IF UAL < MSC 2 <3500 OR UAL < M 
$C23)>3700 '.'EN PRINT MS 

3060 OUTPUT 903 . RH0MS3-'" 

3070 ENTER 90 .. , • S 

3080 I “ UAL < MSC2D ;• <2 . 9 


OR UAL '.MS 
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C23> > 3 . 1 lHhN PRINT MS 
3090 OUTPUT 903 ;«RH1M£32 M 
310O ENTER 903 ; MS 
311.0 IF VftL<M$C23><280ei OP URL CM 
SC23 > > 3000 THEN PRINT MS 
3120 OUTPUT 903 ; H RH8MS33" 

3130 ENTER 903 j MS 
3140 IF VfiL<MSC2D)<-5.2 OP URL CM 
SC23)>-5 THEM PRINT MS 
3150 OUTPUT 903 ; “RH1 MS33” 

3160 ENTER 903 ; MS 
3170 IF URLCMSC2ZJ} <1 15 OR URL CMS 
C23 > 125 THEN PRINT MS 
3130 OUTPUT 903 ; *' I N ° 

3194 RETURN 

3195 ! 

3030 ! 

7. V 9^ 1 

3900 ! LORO QC200O SETTINGS 
3910 D I S P 11 L 0 ft D I N G 8 C 2 0 © Q 0 ft T H £: R 
S E " 

3920 ! SET TIMEOUT 9; 3000 
3930 ! ON TIMEOUT 9 GOTO 1700 

-3-94-0 — 

3950 ! LOCK OUT FRONT PANEL 
3960 0 N EF R 0 R GOTO 415 0 
3970 GOSUB 5790 ! LOCKOUT 
3980 GOSUB 5790 f LOCKOUT 
3985 N- 1 


3990 

4008 


4018 


4011 

4812 

4013 

4020 

4040 

40?**i 

4860 

4070 

4830 

4890 

4100 

4110 


4 120 
4130 


GOSUB 5668 ! 1JP-L0RD #1 
GOSUB 5718 ! GET CURRENT SE 
TUP 

IF S2SC20©,2153#C0SE2, 173 T 
HEN 4813 

IF S2SC217 .* 2223#C0SC 19.. 243 
THEN 4013 

IF S2SC216,216U="r H OR S2SC 
2 1 6 , 2 1 6 3 = “ n " THEN GOTO 4828 
DISP "CONFIGURATION CHANGE M 

c* CTUP 

S 1 S=S2S 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
DISP 
D" 

1 BEEP 915, 
RETURN 


5430 
4610 
5208 
584© 
5970 
606© 
5438 
QC2000 


STORE SETUP 
RGC 

SAMPLE 

SWEEP LENGTH 
BLOCK DELAY 
DIVISOR 
STORE SETUP 
DATABASE LOROE 


4158 BEEP 6 DISP "QC200© NOT ON 
LINE" 8 GOSUB 4538 

4-160 PFTHPH . — -7 

4170 BEEP 3 DISP '‘802000 REQUIRE 
S SERVICE" 

4130 ! PRINT ALL STATUS BYTES 


4 190 F 0 P hi — 1 T 0 2 5 6 

4288 B 1 $ =DTB-£ < HUM C S'2-fCN . N 3 > > > £ 
IN 

4210 H 1 £ = 0 T - S C NUM < S2$C N , N 3 > > 1 r 
EX 

4220 PRINT USING 4238 ; H . B1*C9, 
123, B1JC13, 163 , H1ST3 * 43 * 12$ 
CM , N3 

4230 IMAGE "BYTE " , ODD , " = " . ftftft 
ft , ft Aftft . " = " , ft ft • ** H - u , ft 

4240 NEXT N 

425 0 RETURN 

4278 ! P-'N FORMAT 

4280 BEEP 58 * 58 

4298 DISP "PART NUMBER" § INPUT 
P2f 

4 7 0 © p 1 $ = 11 0 0 © © © 8 © 0 © 0 0 @ 0 0 " 

4 3 1 y N = 1 4 


hUK N1=LTH':'P2?> m t cjr:. - 
1 ! BUI^j R TO L ~ * 

4330 IF P22TN1 .■ N13=" THEN 47*0 
! SKIF 

4349 Fl*CN,>a=P2SCNl,N13 

4350 N=N- 1 
4380 NEXT N! 

4370 F'2*=P if 
4388 RETURN 
4398 ! 

44001 N=ll 
4410 GOTO -34ft 

4 42 - 0 ! — 

4430 ! P'N •'K.'-SEFsRCH 
4440 FOR R? • : ' '1 R2 

4450 R1=R2 . 

4460 ON ERK. ' , (t 4510 

4470 REfiO# 2,.., - Fir 
4488 IF P1*C1, 1 ‘ =P2*C1 , 143 THEN 
OFF ERROR Q RETURN ! MATCH 
DBA 

4450 NEXT R2 
4500 ! 

4510 DISP "NOT IN DATABASE" -2 OF 
F ERROF 8 GOTO 4=120 
__ 4520 ! 

4 7' H ! " - 

4540 ! RESET HP IB 
4550 ABORT 10 5 
4580 SEND 9 UNT 
4570 RESET 5 
4580 CLEAR 9 
4590 WAIT 5000 
4800 RETURN 

tOl 0 __________ 

4820 ! AUTO > AIN CTL FOR CCZeifT - 
4830 SET TIf- - OUT 9 266 
4840 ON TIM! j ; T 9 GOTO 5380 
4858 OUTPUT 3 "OR0" 

4880 GOSUB 56,8 i BIT MASKS 
4878 GO =8 G 1 1 > ! GAIN : 6QdB 
4880 SI SC48 • 4S3=CHPf ••£ 1 1 ■ 8 Si 

JC47, 1233=CHRf<Bl <2> "■ 

4890 FOR M=3 TO 25 STEF' 2 
4700 I OSUFFER S4i 
4710 S4*=Slf 1 UPDATE CONFIG 
4720 S4JC46, 483=CHR* <BINI0R<B1 <'M 
> . NUM < S4#C48 . 483;' > > 

4730 S4*C47, 473=CHRi <BINI0R<B1<M 
+ 1 > , NUM < S4* C47- 470 :• > > 

4?40 S3*C1..23=S4*C46,473 
4750 GOSUB 5530 ! PGM MODULE 
4780 IF G 1 C M > = 1 THEN WAIT 1000 
4770 IF G 1 ( M ) = . 5 THEN WAIT 1080 
4780 GOSUB 5200 ! SIG LEVEL 
4790 IF FLAG < 1 ) THEN S1*C46,473= 
S3* Cl ■ 23 e G0=G0-G1 <M.> 

4818 NEXT M 
4320 I OBUFFER S4* 

4330 S4*=S1* 1 FINAL GAIN SLCT0 
4340 GOSUB 5538 ! PGM MODULE 
435 0 PE TURN 

4370 ! SET SCREEN 

4886 GOSUB 5280 ' SAMPLE 

4390 S1SC35 ■ 383= "A 4" 

4980 Sl*C7,83=“c.<" 

4910 I OBUFFER S4* 

4928 S4*=S1* ' FINAL CONFIG 
4930 GOSUB 5538 ! FINAL SETUP 
4940 RETURN 

— MrfTP i 7 ‘ 

496D i SET SCREEN 

497D GOSUB 5290 ! SAMPLE 

4980 GOSUB 534© ! SWEEP LEGNTH 

4998 GOSUB 5970 ! BLOCK DELAY 

5009 I OBUFFER $4S 

5010 S4S=S 1 S ' FINAL CONFIG 
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5020 GOSUB 5530 ! FIHftL SETUP 
5030 RETURN 

— ? — — 

5058 I DEFINE BIT MASKS 
5060 6 1 <3 > =BTD C " 0 1 000000 " ) g El< 
4>=BTD< "00000008 n > g G 1 < 3> = 
16 ! 16 dB 

5079 B 1 <5 > s BTD< "00100008 ” > g Bl( 

6 > =BTD < " 00000000 11 > g G 1 <5> = 

16 ! 16 dB 

5080 B 1 <3.:*=BTDC ”000 10000 ” > 0 B 1 < 

1 0 ) - B T D •' "0000000 0 " > g G 1 C 9 > 
=3 ! 88 dB 

5890 B 1 C 1 >=BTD C "80000008 " > g B1C 
2 > = B TD < "8010008 8 " > g G 1 < 1 > = 
20 ! 28 dB 

5180 B 1 < 7 > =BTD < " 0010 8 9 008 " > g B 1 < 
8 > =BT D < " 0 0G 1 8 08 8 “ > 2 G 1 < 7 > = 
10 ! 18 dB 

5110 B 1 < 1 1 > = BTD < M 808000 80 '* > g B 1 
< 1 2 > =BTD < "00000001 " ) g G 1 ( 1 
1 > = 1 6 ! 16 dB 

5120 B 1 < 13>=BTD £ "00008 8 8 8 " > g G 1 
»: 1 4 > =BTD i "800000 l 0 “ > g G l c l 
3 • = S ! 06 dB 

5138 El ’ 1 5 1 = £ T D \ " 8 8 8 8 y y y y " . g = * 
v 16 > = B TD < " 8 800 y 1 0 0 ” > <2 G 1 < 1 
5 - -4 i 04 d& 

5148 B ! * 1 7 ) = BTD <" 00000808 " > g E'l 

< l 8 > = B T D " 0 0 Cl Pt l ft 0 P? " > 2 G 1 ; 1 

7 > = 2 ! 82 dB 

5150 B 1 \ 1 S' > = B T D ( " 8 y 0 y 1 y y y " g E ; 

< 2 0 > = BT D c " 80 8 80080 " > A G 1 \ 1 
9 > =4 ! 04 dB 

5160 B 1 < 2 1 > =BTD " 0y 8 y y 1 8 y " > g E 1 
c 2 2 *> = B T D £ " O y 8 0 0 0 y 0 " > g G 1 <2 
1 .-• = 2 ! 02 dB 

5178 B 1 £ 23 > = BTD £ " 080808 1 y " > g B 1 
C 2 4 > =B T D £ " 8 8 0 0000 0 > g G 1 £ 2 
7. - - 1 i 01 dE 

5 1 88 B 1 £ 2 5 > =9 TD £ " 0008880 1 " ;• g E 1 
( 2 6 1 - B T D £ " 8 8 8 8 8 8 8 y " .■ g G 1 % * 2 
5 > = 5 ! . 5 d & 

5128 RETURN 

Z yy 1 ■ — 

5218 ! CnECK FOR SIGNAL LEVEL 
5228 SET TIMEOUT 9 ;■ 2 8 8 
5230 ON TIMEOUT 9 GOTO 5380 
5248 M2 =8 

5258 OUTPUT 903 ; t, WAl" g ENTER 2 

83 : ms- 

5260 1 0 BUFFER MIS 
5278 TRANSFER 983 TO MIS FHS 
5288 FOR N=1 TO 18 
5298 S FLAG 1 

5388 ri8 < N ‘ = V AL < M 1 SC2 1 * < H- 1 > +2,21 
X("-l > + 123 > 

5310 IF My N>>M6 THEN CFLAG 1 ! 

L‘* ' CHAL 

5320 ML -' «• ,:N> 

5338 NEa 

5340 OUTPU .23 ; "WAO” 

5358 M2=M2l x .j 
5368 SEND 9 > UNT 
5370 RETURN 

- 5330 r“ 

5398 ! LOST SIGNAL ON 5335 
5400 ABORT 10 9 
5418 CFLAG 1 
5428 RETURN 

3T3U “1 " 

5448 ! STORE NEW SETUP 
5445 S 1S=S2S 
5450 I QBUFFER S4 S 
5468 S4S=S2*C1 .2563 ! UPDATE COK 
F I GURAT I ON 

5478 G 0 ’* ' f B 5538 ! PGM MODULE 
5488 GO:«B 5688 ! STORE IN #1 


5498 GO- ‘ B 5660 ! RECALL #1 
5508 GOi 1 B 5718 ! GET CRNT SETUP 
5510 IF .-."'SCI ,2223*81 SCI ,2223 TH. 

EH iv SUB 4178 
5528 RETl 1 N 

— ! 1 

5548 r 7E;.2 PGM MODULE COMMAND 


5558 S4S = S4SC1 ,2543 ! MAKE ROOM. 
FOR <CR> * <LF> 

5568 SEND 2 = MTA UHL LISTEN 4 D 

ATh HID C " C 1 " > > HTD ■' " 0F " > . H T D 
v " C7" 

5579 TRANSFER S4S TO 984 FHS 
5588 P = S F 0 L L •’ 984 > 8 WAIT 188 
5598 RETURN 

■ H 6 g rn — + — 

5610 ! STORE IN BLOCK 1 
5620 SEND 9 ; MTA UNL LISTEN 4 0 
ATA HTD < " C4 ” > , N , HTD < ”00 " > 
5630 WAIT 26 8 0 
5648 P = SPOLL , ;904> 

5658 RETURN 

5 b c* y ! ™ “ 

5670 ! RECALL SETUP 
5688 SEND 9 ; MTA UHL LISTEN 4 D 
ATA HTD >•' " C 3 " > , N , HTD;:. " 88 " > 
5698 F = SP 0 L L < 9 y 4 > g WAIT 1 88 
5788 RETURN 

07 7 01 — “ ' ‘ 

5720 ! GET SETTING #1 
5738 I QBUFFER S2s* 

5748 SEND 9 ; MTA UNL LISTEN 4 D 
ATA HTD < “CS" > , HTD'! " 88 " > , HTD 
C " 0 0 " > 

5759 TRANSFER 984 TO S2S FHS 
5778 F‘ = S POLL < 9 8 4 > g IF p#8 THEN 
GOSUB 4178 

5788 RETURN 

— ! 

5888 ! LOCKOUT FRONT PANEL 
5818 SEND 9 ; MTA UNL LISTEN 4 0 
ATA HTD \ " C7 " > , HTD*; "45" > , HTO 
c. “ y y “ > 

5828 P— S POLL C 984 ) 

5838 RETURN 

5858 ! SET SWEEP LENGTH 
5908 S 1SE35 , 353 = CHRS < 2> 

5948 IF M2'. 001 THEN S1SC36,363= 
CHRS 0 > 

5 9 6 0 R ETIJR H 


5288 ! SET ELK DELAY TO CNTR SIG 
6080 T6= I P < C M2- . 8 80025 > -*•' ( 4:»: . 8088 
1 28 > .) 

6820 T5= I P < < M2- . yy 80 25-4 ic . 8000 i 2 
8 :t.' T 6 > /“ 4 X . 0 y y y 8 y y 5 > > 

6830 S 1 S C 8 ■ 3 3 = C HR S C T 6 > 

6040 S 1 SC7 , 73 = CHRS < T5 > 

6050 RETURN 

■ rh ? A - A j " 

6070 ! SET DIVISOR FOR ECHO^THPU 
6888 S3S=S2SC58, 583 
6090 ! IF BIT <NUM'vS3£> , 5> THEN 0 
4=1 ELSE 04=2 
6188 RETURN 
+'M 

6128 ! GET 180 TIME SAMPLE 2 
6138 GOSUB 4618 ! AGC 
6140 GOSUB 4959 ! SET SCREEN 
615H BEEP 68,208 
6160 ! GET SELECTION OF SAMPLE I 
6170 OUTPUT 963 ,"WAl n g ENTER ? 
83 ; m 

6180 SET TIMEOUT 9,18008 
6190 ON TIMEOUT 9 GOTO 5388 ! FE 
CYCLE 
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I0BUFFER MS 

TRANSFER 90S TO MS FHS 

SEND 9 ; UNT 

FOR N= 1 TO 1O0 

M8<N > =VhL < rises 1 X < N- 1 > +2 , £ 1 X 

<N-1>+1?3> ! HUM EQUIV 

NEXT N 

OUTPUT 90S "WAS" 

BEEF 80 • 2O0 
OFF ERROR 

RETURN _ 

! ALL WITHIN D3 WINDOW 
M0(0> = IHF 6 MO < 1 0 1 > =E?S 
FOR H= 1 TO 108 
IF H 0 < N > < M 6 < 0 > THE H M 9 0 > = M 

0 n :> 

IF M9 <N>>M9 081 > THEN M0<:0 

1 > = fl 0 < N > 

NEXT N 

IF M 9 < 0 > > M 6 THEN GOTO 3880 
IF M0<101)-M0<0>>D9 THEM 64 

* '“i 

•fi‘ -0 e n£=i 0 i 

r|, ?N 

3 BLE SORT SAMPLES 
FC, \=l TO 99 
M3 = M0 < N > 

N3 = N 

FOR N2-N+1 TO 190 
IF M0<N£i<M3 THEN M3=MOO-(2> 

(9 N3=H2 ! CHECK FOR LOWER 
NEXT NS 

MO < N3 > =M0 < N > e M9CN > =M3 * S 
WAP 

NEXT N 

i 

! ASSUME MEDIAN VALUE IS GO 
00 

M3= < M0 < 59 ) +M9 <51 > )x’S 

i 

! GET MIN GOOD SAMPLE LIMIT 
FOR N^=49 TO 1 STEP -1 
IF M3-M0 < N4 >> D9 THEN GOTO 6 
=590 ? FROM MIDDLE DOWN 
-? EXT N4 

GET MAX GOOD SAMPLE LIMIT 
)MR N2=52 TO 10© 

IF M9<N2>-M3>D9 THEN GOTO V 
659 f FROM MIDDLE UP 
NEXT NS 
RETURN 


{ P2$=PART NUMBER MEMORY - 
! RS=RESPONSE TO INPUT ? 

' S 1 S-PART SETUP LIBRARY 
f S2S=QC2000 PGM BYTES 
! S3$=QC2000 RCVR GAIN BYTE 
! S4i=5335 PROGRAM BYTES 
! S5*=BIH EQIV MO > MM , MS 
! S 6 $ — N U M EQIV S5f LSB 
! S7*=NUM EQIV S5t MSB 
! S3*=0FF, NORM, SCALE ASCII 

I 

DIM B 1 <26 > , G 1 < 26) , M0 C 18> , S 1 < 
30 > 

I 

! BIO-RCVR GAIN BIT MASK 
! G1C>=RCVR GAIN BIT VALUE 
! M80=NUM TRNSIT TIME SMPL 
! SI O -STATUS BYT E ARRAY 

_l __ 

INTEGER L1,M,N,N1,N2,P,R,R1, 
RS, T5, T 6 
} 

! L1=MAX # OF Fv*N RECORDS 
! M = AGC GAIN BYTE PNTR 
! N*GENERAL PO I N TER ^COUNTER 
! N1=P/N BUILD POINTER 
! N2=G0QG SMPL COUNTER 
! P=RESULTS OF SER . POLL 
! R=COMB STORAGE POINTER 
! R 1 =REC PNTR F/ FPSOAT 
! R2—REC PNTR F/ P-*'NDAT 
! T5=BLK DLY LSB 
! Tb=BLK PLY MSB 

REAL GO, M2, Mo, S2 

! G0=NUM GAIN SETTING 
! M2=AVG PROPAGATION TIME 

! M6=MAX TIME LIMIT 
? 52=5335 RT,jT,T I CONSTANT 

CLEAR 

S2$C2333= " # 11 e £1S=" “ 

L 1 = 99 
M6 = . 009 

i 

SET TIMEOUT 9; 2008 
ON TIMEOUT 9 GOTO 1099 

—i — — 

! MAIN MENU 
CLEAR 

ON KEY# 1, "CHANGE" GO SUB 649 
ON KEY# 2,” ADD “ GOSUB 760 
ON KEY# 3,” PRINT" GOSUB 3S9 
ON KEY# 4 .■ u M E S U R E 11 GOSUB 196 


1 F P S M 0 D 19 o •- 

t 97193 3 1 5 9 9 0 8 9 5 8 6 9 3 3 0 

C L E A P 

! INITIALIZE 

DISP "FRONT PANEL KODIFICRTI 
ON ROUTINE" 

ENABLE KBD BTD< " 1 1 1 1 1 11 1 " ) 0 
WAIT 3000 

i 

ASSIGN# 1 TO "FPSOAT " 

ASSIGN# 2 TO "P/NDATJl 

j — 

DIM 61$C1S3,H1$E43,M1*C21$3 
DIM Pl*C293,F2$C293,RSCi63 
DIM S1SC2S43, S2*C2543,S3$E23 
, S4SC2643, 95*11163, S6«4D, S7f 
C 4 3 , $ 3 * C 5 0 3 

! B1S=B INARY EQUIVALENT 
« K1*=HEX EQUIVALENT* 

! ni$=AGC TIME SAMPLES < 10 ■) 

! PI *=PRPT NUMBER INPUT 


ON KEY# 5.* "DELETE” GOSUB 131 


‘0 ON KEY# 


'HO P.'N" GOSUB 1.19 


OFF KEY# 7 

ON KEY# 8," QUIT “ GOSUB 181 
9 

KEY LABEL @ DISP “MAIN MENU" 
GOTO 549 * WAIT FOR SOFTKEY 


! CHANGE MENU 

ON KEY# 1," TEMP " GOSUB 321 
0 

ON KEY# 2," TIMER" GOSUB 216 
0 

ON KEY# 3, ,, QC2000 M GOSUB 388 
0 

ON KEY# 4," COMB " GOSUB 17R 
9 

OFF KEY# 5 
OFF KEY# 6 
OFF KEY# 7 


GOSUB 178 
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730 ON KEY# 3," SUIT “ GOTO 536 
740 KEY LABEL -6 OISP "CHANGE MEN 
U" 

750 GOTO 660 ! WAIT F-.R SOFTKEY 
v '5 A — f — 


778 

1 ADD MENU 



73U 

ON KEY# 1 , " 
0 

TEMP 

“ GOSUB 321 

730 

ON KEY# 2. " 

Tt 

TIMER 

M GOSUB 216 

300 

OH KEY# 3 • " 

QC2080 

" GOSUB 333 

3 1 0 

OFF KEY# 4 



320 

OFF KEY# 5 



330 

OFF KEY# 6 



349 

OFF KEY# ? 



350 

ON KEY# 3, “ 

QUIT 

" GOTO 536 

369 

KEY LABEL 6 

DISP 

"ADD MENU" 

370 

GOTO 730 



'ft* Pi 

1 



3 3 O 

i PRINT MENU 

- 

300 

ON KEY# 1 , “ 
0 

TEMP 

“ GOSUB 303 

310 

ON KEY# 2," 

TIMER 

" GOSUB 267 

S 2 0 

ON KEY# 3," 

QC2000 

“ GOSUB 427 

3 3 0 

OFF KEY# 4 



34 0 

ON KEY# 5 , " 
0 

P.-'N 

" GOSUB IBS 

950 

ON KEY# Sj " 

COMB 

“ GOSUB 133 

360 

0 

OFF KEY# 7 



A 7 0 

ON KEY# 3," 

QUIT 

" GOTO 530 

930 

KEY LABEL (5 

it 

DISP 

"PRINT MENU 

9 3 0 

G 0 T 0 9 0 0 ! 

WAIT FOR SF7KEY 

“1 0 0 v.r 
1010 

! > > > DONE < 

* / 


102 0 

CLEAR 



1030 

ASSIGN# 1 
AT 

TO £ ! 

CLOSE FF'SD 

1 0* 4 0 

ASSIGN# 2 
AT 

TO % j 

CLOSE P/ND 

1050 

DISP "DONE 

" 


1 060 

STOP 





— • — . — ■ 



1 065 

CHAIN “TCC 

704" 


-1-070 
1 030 

DISP "FILE 

FULL" 

G GOTO 10.7 

- 4 . 

6 * CLOSE 

_ j 

FILES 

... 


10*30 BEEP 15 CLEAR £ CUSP “DEVICE 
TIMEOUT" '5 WRIT 3000 £ GOT 

0 510 ! MR IN MENU 

■ i"100 — 

1110 ! P/N FORMAT 
1 1 3G DISP “FART NUMBER" £ INPUT 
PIS 

1 130 P2XC1 , 1 43~" 00000000000000" 
1140 N = 1 4 

1150 FOR N1=LEN<P1*> TO 1 STEP - 

1 ! BUILD P TO L 

1160 IF P 1 X EN 1 > H 1 " THEN N=ll 
G GOTO 1130 1 SKIP 
1170 P 2X CN , H □= P 1 $ CN 1 > N 1 3 
11S0 H = N - 1 
1139 NEXT N1 

1200 P1SC1 , 143=P2$C1 , 143 

“T2T0 1 " " - — — 

1220 ! p.-'N CHECK 

1230 FOR R2*= 1 TO LI 
1240 ft 1=R2 

1250 ON ERROR GOTO 1440 ! EOF 
1 26G READ# 2,R2 : P2X 
1279 IF P2SC1, 143=P1SC1, 143 THEN 
OFF ERROR (5 RETURN .! MATCH 
DBA 

1 2S0 NEXT R2 
1230 ! 


32 

1300 DISP "FILE FULL" £ GOTO IDE 

0 1 close files 

- — r cro — i — — 

1320 ! F N DELETE 
1330 DISP "DELETE WHICH PART NL-M 
EER U '5 INPUT PIS 
1340 IF P1X="" THEN 1430 
1350 GOSUB 1130 ! FORMAT & SEARCH 
1360 DISP "DELETE" £ DISP P2XC1 , 

1 13; ; P2XC12, 143 £ DISP P 

2XC15, 133.; " " ; P2SC 1 3 , 233 , 

" , P2XC24, 233 

1370 INPUT RX£ IF Rtr'Y" THEN 14 
3u 

1 3S0 P2X = " 

1330 S is=" " § S 1 X C 2 3 3 ,2333="# " 
1400 PRINT# 2, R2 ; P2X ! STORE = 
LANK 

14lv? PRINT# I, PI ; Six » STORE E 
LANK 

1430 CLEAR i5 KEY LABEL fa RETURN 

3 - 44 -£l_J . 

1450 i > > > Fv*N HDDs. < < 

1460 clear 

1470 OFF ERROR 

1430 IF P 1 X = " 0 0 0 0 0 0 0 0 6 A A A Vi A “ THE 
N RETURN 
1430 DISP "ADD:" 

1509 D I S P P 1 XC 1 .. 113; ; P 1 x C 1 2 • 1 

43 

1519 DISP "TO PART NUMBER LIBRAE: 
Y ? " (5 INPUT RS 

1529 IF R X # " Y " THEN GOTO 1100 
1538 FOR R2= 1 TO LI 

• 1540 ON ERROR GOTO 1230 » EOF 

1550 READ# 2,R2 ; P 2 X 
1560 DISP P2X 
1570 OFF ERROR 

1530 IF P2XC1 , 143=" 

" THEN 1610 ! STORE 
1530 IF P2X= " * THEN 1610 ! STORE 
1600 NEXT R2 

1610 PRINT# 2,R2 * PIS ! STORE F 
s N 

1620 R 1 = R 2 

1630 GOSUB 1 340 ! COMBINATIONS 

1640 clear e key label £ return 

1650 ! 

1660 PRINT 3 PRINT £ PRINT "PART 
NUMBER : " j PI SCI . 1 13 . " - " ; PI 

X C 1 2 , 143 15 PRINT i5 PRINT 
1670 RETURN 

F6LSO J _ 

1630 ! PRINT p/N IN DATABASE 
1760 PRINT 6 PRINT fa PRINT ">>>F 
ART NUMBERS IN DATABASE<<< " 
6 PRINT 

1710 FOR R2= 1 TO LI 
1720 ON ERROR GOTO 1770 ! EOF 
1730 READ# 2 • R 2 FIX ! F ' h 
1740 IF PlXCl, 143=" 

" THEN GOTO 1760 ! SKIP EL 
ANKS 

1750 PRINT "PART NUMBER: ";Plxri 

, 113; n - n ;PlSE12 , 143 
1768 NEXT R2 

1770 CLEAR G KEY LABEL >5 RETURN 

1 7 3 O — ! _ — 

1730 1 CHANGE COMBINATIONS 
1300 GOSUB 1100 ! FORMAT aSE ARCH 
1310 DISP USING 2108 
1320 DISP USING 2120 ; P2XC15/13 
3 , P2XC 1 3, 233 , P2XC24 > 293 ! D 
BA 

1330 GOTO 1 340 | COMBINATIONS 
1340 ! " 

1350 ! COMBINATION ADD ROUTINE 
136 0 F = R w 

1870 DISP "TRANSDUCER NUMBER" G 
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INPUT Pi 

1 833 PI SC 15 , 183=P* 

1 g-jfi DISP “WEDGE NUMBER" @ INPUT 

R $ 

19Q0 P1SL19, 233=R* 

1910 DISP "HOLDER HUMBER" 6 INPU 
T R* 

1920 F1SC24, £93=P* 

1930 PRINT# 2, R ; PIP ! STORE CO 
MB 

1940 CLEAR 

1950 DISP "MORE COMBINATIONS" i? 
INPUT R S 

I960 IF Rf = “Y" OR RP= " YES “ THF f, 
R=R + 1 8 GOTO 1879 

1970 clear e key label e return 

4-9 0 0 ! — 

1990 ! TDX,WDGE,HOLDER PRNT PGM 
2000 CLEAR 

2010 P1$=“00000000000000" 

2*20 PRINT 6 PRINT 6 PRINT "COMB 
I NAT I OHS OF WEDGES AND TDX" 
2030 FOR N= 1 TO LI 
£040 ON ERROR GOTO 2150 ! EOF 
£050 READ# 2 . N ; P2P ! R,N 
2060 IF P2SC1, 143=" 

" THEN GOTO 2130 ! SKIP BL 
ANKS 

2080 IF P2SC1 , 143#P1*C1 , 143 THEN 
PRINT 12 PRINT "PART HUMBER 
: “ ; P2PE1 , 113; ; P2SC12, 14 

3 

2090 PRINT USING 2100 
2100 IMAGE ” TDX WEDGE 

fl S ^ Y 11 

2110 PRINT USING 2120 ; P2SC15 . 
S3 , P2£C 1 9 , 233 , P2SC24 , 253 
DBh 

2120 INhGE 5H,5X,5fi,5X,Sfi 
2130 *\s=P2S ! SKIP IDENTICAL P. 
N 

2140 next n 

2150 Or F ERROR M KEY LABEL S RET 
URN 

-5^ 1 ^ — i 

2170 ! CHANGE 5335A FRONT PANEL 

2 ISO GOSUB 110O 1 F 0 P M H T 3c S E h R C H 
2 1 SO ON ERROR GOTO 2248 ! EOF 
2200 Ft hD# 1 . R 1 ; SIT ! GET 8 1 NR 

RY RECORD 

2210 GOSUB 2378 ! STATUS 

2220 OUTPUT S03 USING M t,2A,30A‘’ 

; “ PE 'LSI TCE5 > 543 ! LOAD 5 
33 5 A 

2221 OUTPUT 503 * " TRl " , S1TC55, 10 
S3 \ LOAD REMOTE TRIGGER LE 
VELS 

2230 IF SITE 111. » 1113#'*-" THEN OU 
TPUT 903 ; Si TCI 05, 1 1 S3 ! ST 
OPE SETUP 

2 2 ^8 OFF E F: R 0 R ! E 0 h 
2250 SlSC23o,2333= w #” S S2TCl,23 
73=$ 1 TC 1 , 2373 
2258 OFF ERROR * EOF 
2270 GOSUB 2370 ! STATUS 
2230 LOCAL 903 
2250 OFF KEY# 2 
2300 OFF KEY# 3 
2310 OFF KEY# 4 

2320 S2TC55 , 953= " AT '* ill S2TC102, 1 
631= " BT " S S2TC189, 1 103= ,, GA 

M 

2330 DISP "CHANGE FRONT PANEL AS 
DESIRED" ; "THEN PRESS Kl" 6 
BEEP 100,50 8 BEEP 130,100 
2340 ON KEY# 1,”ST0RE" GOTO 2460 
2350 KEY LABEL 

2360 GOTO 2360 ! WAIT FOR SOFTKE 
Y 


£380 ! POLL AND CHECK STATUS 
2398 SI <0>=SPOLL<903> 

2408 IF BIT<Sl-<0> , 2? THEN 2440 i 
ERROR 

2410 IF EITCS1 ,3) THEN 2440 ! 
FAIL 

2420 IF BIT<S1<0>,6> THEN 2440 ! 
SERVICE REDDEST 

^ 243fl BPTnct-; 

2T40 PRINT "5 335 A STATUS ERROR" 
2450 GOTO 2730 ! PRINT STAT BYTE 

— 2 4 6 9 — ' 

2461 ! FRONT PANEL STORE 

2470 CLEAR 

' 2480 DISP “A TRIG LEVEL" 8 BEEF 

150.200 g INPUT S2 

2490 S2*C97 , 10l3=VAl_* < IP<S2*100> 
/ 1 0 0 > 

2500 DISP “B TRIG LEVEL" 6 BEEP- 

180.200 6 INPUT S2 

2510 S2SC104, 1 0 83 = V A L f < I P ■; S 2 % 1 &0 

) , 1 0 0 > 

2520 DISP "TIME I NT . DELAY" 8 BE 
EP 210,200 8 INPUT S2 
2530 S2SC1 11,1 183=VAL$<S2> 

2533 OUTPUT 903 ; "TR 1 " , S24C95 , 19 
83 ! REMOTE TRIGGER SETTING 

C 

2535 OUTPUT 993 ;"PQ" 

2536 ENTER 903 USING “#,30A" ; S 
4* ! GET PANEL SETTINGS 

2549 OUTPUT 903 USING "#,2A,30A" 

; " PB " , S4 J ! STORE SETTING 

C 

2542 OUTPUT 993 • "TR 1 " , S£$C?5, 1 9 
83 ! REMOTE TRIGGER SETTING 

c 

2559 IF S2SC1 1 1 , 1 1 13#"-" THEN OU 
TPUT 903 ; "TRl " , S2tES5, 1 183 
! STORE SETUP < GA >@> 

2569 GOSUB 2379 1 STATUS 

2570 OUTPUT 903 ;“PQ" 

£580 ENTER 903 USING "#,30A" ; S 
4S ! RETREIVE SETTINGS 
2590 SlS=SlSEl,643S.S4*S ! S2fC?5, 12 
83o,Sl*C129,2333 
2600 GOSUB 2370 ! STATUS 
2610 PRINT# 1 , R 1 ; SI* ! SAVE BI 
NARY RECORD 

2615 READ# 1,P1 ; SI* ! RETREIVE 
BINARY RECORD 
2620 GOSUB 2370 ‘ STATUS 
£630 OUTPUT 903 ;"PD” 

2640 ENTER 903 USING "#,30i , S 

4* ! CHECK PGM 

2650 IF S4*#S1*C65, 943 THEp. ' 

T “DATA BASE LOADING ERr... i 
2660 CLEAR 0 RETURN 

0C70 ! 

2680 ! DECODE 5335A PGM BYTES 
2690 GOSUB 1100 ! FORMATS SEARCH 
2700 ON ERROR GOTO 2729 ! EOF 
2710 READ# 1 , R 1 ; SI* ! BIN VALU 
E 

2729 OFF ERROR 6 S1SC238, 2333=“# 

~ 2749 ! STATUS BYTE PRINT ROUTINE 
2750 GOSUB 1660 ! P,N HEADER 
2760 PRINT “TIMER DATABASE" ; “SEE 
5335A TBL 3-6B UPDATE 4,25 
,85“ 

2779 FOR h= 1+64 TO 39+64 

2780 B 1 * =DTB* ( HUM < S 1 fCN , N3 ; 8 B 

1*=B1*C9, 163 

2799 H1*=DTH*<NUM<S1*CH, N3> ! H 

EX 
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2308 

PRINT 

“BYTE" ; N-64; “ = 



» = * 

H 1 SC3 .. 43; “H = 

“ ; Ci .**$< 


HUM < S 1 SEN , N3 > > 


2210 

NEXT N 



2320 

G O 8 U B 

3700 ! 0 F S T / N R M - 8 C L 

2330 

PRINT 

“OFFSET =" ; S8SC2.. 173 

2340 

PRINT 

333 

“NORMALIZE = "; 

S8*C1S, 

235D 

PRINT 

"SCALE = “ ; S3SC 

3*4 • 4^3 

2338 

PRINT 

1013 

"A TRIGGER ="; 

S1SC37, 

2370 

PRINT 

"B TRIGGER ="; 

81 SL 104 


, 1083 



2330 

PRINT 
lx 1183 

"TIME DELAY =" 

J SI SCI 1 


2390 KEY LABEL G RETURN 

,.2ftftft l 

2910 ! POLL 2421 2, GET STATUS 

294 0 i j 0 S U E 34 1 ft 

2230 OUTPUT 901 ; "SR" 

2240 FOR H= 1 TO 24 
2250 ENTER 201 Sl(N) 

2960 S2SC32+N .. 32+N3=CHRS S i \ N • .■ 
2970 NEXT N 

2 9 U ft IF B I T < S 1 < O 1 .• 2 •' TriErl 3 O 5 0 ! 
E R F' 0 R 

2290 IF B I T'.'S I < 0 > , 3 > THEM 3050 1 
FAIL 

3000 IF BIT<Si (01,61 THEM 3050 ! 
S R 0 

3010 IF eiT<Sl < 1 > > 1 > THEM 305ft i 
POWER ON RESET 

3020 IF BIT<S1<1J<5 > THEN 3050 i 
ABNORMAL 

3030 IF B I T < S 1 < 1 '> > 6 ? THEM 3 ft 5 0 1 
SRQ 

3040 RETURN 

T O 5 0 — — 

3060 ! PRINT 3421 STATUS BYTES 
3070 PRINT “3421 A STATUS ERROR" 
30S0 GOSUB 1100 FORMATS SEARCH 
3098 GOSUB 1660 ! P/N HEADER 
3100 PRINT "TEMPERATURE SENSOR D 
ATABRSE" ; "SEE PG F -6, 30560 
L SYS OP -MANUAL " 

31 1C OH ERROR GOTO 3130 ! EOF 

3120 READ# <,R1 SIS 

3130 OFF ERkOR 6 S 1 SC238 , 2383= " # 

3149 IF S 1 SC 1 7 . 323= " 

“ THEN PRINT SI SCI, 163 
G RETURN ! COMMAND STRING 

3150 FOR N= 1 +32 TO 24+32 ! PRINT 

STATUS 

3160 B 1 $ = DTBS < NUM < S 1 SCH , N3 > > ! 
BIN 

3170 his=oths<num<siscn,n3>> ' 

HEX 

3 1 80 PRINT "BYTE" ; H-32; "= “ ;B1SC 
9 ■ 163; " = "i H1$C3,43; "H = " 

; S 1 SCH , N3 
3190 NEXT N 

3200 KEY LABEL G RETURN 
3210 ! 

3220 ' ADO 342 lfi SETUP 
3230 ! SEE PAGE F-3 IN 342 1H MAH 
UAL FOR COMMANDS 
3240 CLEAF 

3250 SET TIMEOUT 9; 20080 

3260 GOSUB 1180 ! FORM AT 2c SEARCH 

3278 ON ERROR GOTO 3290 ! EOF 

3288 READ# 1.-R1 ; SIS 

3290 OFF ERROR ! EOF 

3300 SlSC£3S..2333=“#" 

3310 DISP "AOVANCED <A) OR STAND 
ARD <S> CMD “ G INFUT RS 
3320 IF Rs= “ A " THEN 3430 
3330 DISP "STANDARD COMMAND" 2 I 
NFUT PS 


36 

3340 S2SC1 323=RS 
3350 GOSUB 2900 ! STATUS 
3360 91S=S2SC1 6434S1SC65, 2373 
3370 PRINT# .1 .. R1 ; SIS < SAVE SE 
TUP 

3339 OUTPUT 901 ;S2SC 1.163 
3390 GOSUB 2908 ! STATUS 
3400 CLEAR G KEY LABEL 3 RETURN 
3410 ! 

3420 ! ENTER AND DISP READING 
3430 S 1 < & > = SF'OLL < 90 1 > 

3440 IF B I T < S' 1 < 0 > .• 0 > AND BIT<S1< 
0>, 3) THEN 3460 

3450 RETURN 

■3460 ENlhK yo 1 ; RSG uISF RS 
3470 GOTO 3430 

3430 S2SC17 < 323 = "F N 2 G R RT 
11 

3490 FOR N= 1 TO 5 STF 7 • PROMP 
T SETUP 

3500 ! SEE PAGE F-3 1. L . 1 ) MAN 
UAL FOR COMMANDS 

3510 DISP S2SC16 + N.. 16+N3; " 3 I 

NPUT PS 

3520 IF LEH<RS)#1 THEN RS=RSC1,1 
3 ! FORMAT 

3530 S2SC17+N, 17+N3=RSC1 , 13 
3548 NEXT N 

3550 FOR N=7 TO 12 STEP 3 ! FROM 
FT SETUP 

3560 DISP S2SC16+N, 17+N3; " = ** I ± I 
NPUT RS 

3570 IF LEN<RS > #2 THEN RS=RSC1,1 
34:" " ! FORMAT 

3530 S2SC17+N, 1 S+N3=RSC1 < 23 
3598 NEXT N 

3600 DISP S2SC29, 303; "=" G INPUT 
Rs 

3618 IF LEN < RS > #2 THE.' RS=RSC1,1 
34" " ! FORMAT 

3620 S2SC31 • 323=RSC1 , 2 * 

3630 GOSUB £900 ! STA1 J; . 

3640 S1S=S2SC1<6433.S1S. ,5<2373 
3650 PRINT# 1 < R 1 ; SIS SAVE SE 
T 

3660 u ;J T P U T 901 ; S 2 S C 1 7 • 3 2 3 

3679 GOSUB 2908 ! STATUS 

3688 CLEAR G KEY LABEL G FETUF.N 

— 6 ~Ir O — ! 

3690 CLEAR G BEEP 6 DISP “FUHCTI 
ON NOT AVAILABLE" G GOTO 54 
0 

■3 708 -j " 

3718 ‘ DECODE 5335A OFFSET. NORMA 
LI2E AND SCALE CONSTANTS 
3720 S3 S=" " ! AVOIDS HULL WARN 

3730 FOR N=7 1 TO 94 ! STftT BYTE 
# 

3740 S5S=0TBS < NUM < S 1 SCH < H3 1' > < 3 

IN 

3750 S6S=VALS < BTD <S5SC9 .• 1 23 > > 1 
LSB 

3 1- 6 8 S 7 S = V A L S < B T D < S 5 S C 1 3 ■ 163!') ! 

USE 

3778 IF <N=71 OF: N=79 OF: N=S7 -■ A 
ND S6S= "9" THEN S8S=SSSS"-" 

G GOTO 3368 

3780 IF < N = 7 1 OR N=79 OR N = S7; F 
ND S6S= " 8 " THEN S3S=S8S4"+" 

G GOTO 3360 

3790 IF H=72 OR N=8ft OR N=SS THE 
N S8S=SS$S.S6Sec " . "S-S7S G GOT 
0 3360 

3800 IF N=77 OF: N=85 OR N=93 THE 
N S8S=S8sScS6S G GOTO 3860 
3310 IF <N=78 OR N=36 OR N=94> A 
ND S6S= "15" THEN GOTO 334ft 
3820 IF <N=7S OR N=86 OR N=94> A 
ND S6s="t<" THEM GOTO 385v 
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3830 SSS=S3$&S6$3cS 7S S GOTO 3368 
3340 S7$*VfiLS<16-Vflfc<S?$>> g S3* 
=S8**< M E-"&S7$ 6 GOTO 3368 
3850 SS$=S8$>i: M E+"S:S7$ 


3868 NEXT H 
3870 RETURN 


- 3338 -"? 

33*30 ! CHANGE -QC2008 FRONT PNL 

3980 GOSUB 1108 ! FORMAT* SEARCH 

3910 OFF KEY# 2 

3920 OFF KEY# 3 

3930 OFF KEY# 4 

3940 ! POLL FOR STATUS 

3950 SET TIMEOUT 9; 10008 

3360 ON TIMEOUT 9 GOTO 1038 

3970 P=SP0LL<984> 

3930 IF P#0 THEN RETURN 
3990 GOSUB 5588 ! CHK STATUS 
48.00 GOSUB 5710 ! UNLOCK 
4810 OUTPUT 903 ; M DR8" 

4029 D I SR "CHANGE FRONT PANEL AS 

DESIRED" i "THEN PRESS Kl“ 

4030 ON KEY# 1/ "STORE" GOTO 4Q70 
4840 ON KEY# 8," QUIT * GOTO 433 

0 

4850 KEY LABEL 


4068 GOTO 4068 ’> 
4^0 CLEfiP 
40S0 GOSUB 5580 
4830 GOSUB 5660 
4180 GOSUB 5660 
4110 GOSUB 4390 
4120 S4S=S2* 

4130 GOSUB 5380 

4149 GOSUB 4430 

4150 RETURN 

■ji4-A4*-4 

4170 ! PRINT SEF 


WAIT FQC SFTKgy 

! UPLOAD SETTING 
! LOCKOUT 
! LOCKOUT 
! STORE ON TARE 

\ PGM UNIT CBLK > 
! AGC 


IAL STATUS BYTE 


4180 PRINT "SPGLL STATUS BYTE" ; D 

TBS CFO e R ETURN 

* ’ — - 


4280 » PRINT UNIT STATUS BYTES 

4218 FOR N = 2 0 0 TO 256 

4220 Bl$=0TB*CNUMCS2:rCN, N3>) 

4230 Hlf=DTHf CNUMCS2I-CN, N 1>> 

4248 PRINT “BYTE M ; N ; " = ";B1$C9,1 
63;" = M ;Hl$C3-43; "H = " j CH 


PS <NUM<S2*CN,r 3>> 


4250 NEXT N 

4260 KEY LABEL G RETURN 

— 

4280 ! QC2800 PGM BYTE PRINT 
4230 GOSUB 1100 ! FORMATS SEARCH 
4388 GOSUB 5538 ! PRESENT SETTIN 
L 

4310 OH ERROR GOTO 4338 ! EOF 

4320 READ# 1,R1 ; SIS 

4330 OFF ERROR 0 S 1 SL233 , 2333 = 11 # 

li 


4348 S2S=S1SC129.*2“ 7 ‘ ? 3&S2SC110,25 
63 ! UPDATE l UNUGURATION 
4358 GOSUB 1668 G ’ J <T "ULTRASO 
NIC DATABASE 1 • J QC2808 M 
ANUflL FOR CODt - K . “ G FRI 
NT 

4360 FOR N= 1 TO 256 

4378 GOTO 4220 ! DECODE t PRINT 

4338 RETURN 

■4-?Q.Q — I 

4490 ! STORE ON TAPE 

4410 S1SC123, 237D=S2SC1 , 1093 

4420 PRINT# 1,R1 ; SIS 

4430 READ# 1, R1 ; SIS » VERIFY 

4440 1 

4450 ! ERROR NOTIFICATION 
4460 IF S2SE1 , 1 033 #S 1 SC 1 23 , 2373 
THEN PRINT "STORAGE ERROR" 
e PRINT "S2S = " > S2S G PRIN 
T "SIS = " 


4478 RETURN 

34^ — 

4430 ! AUTO GAIN CT. FOR QC2888 
4528 OUTPUT 903 .;"L«:0" 

4538 GOSUB 4910 ! F X J MASKS 
^548 G0=80-G 1 < 1 > ! £ U N * S0dB 
4550 SI SC12S+46, 12S >63=CHRS(B1 < 
1>> *5 S1SC128-K , 1 28+473 = CH 

rscbi<2;o 

4560 FOP M=3 TO 25 STEP 2 
4578 I OBUFFER $4i 
4 588 S4$ = S 1 SOI 23, 2373&S2*C1 10,25 
63 ! UPDATE CONFIGURATION 

4598 S4SE46 , 463=CHRS < B I N I OR CB 1 < M 
> , NUM C S4SC46 , 46H > > ) 

4600 S4SC4? , 473 = CHRS < B I N I OR < BUM 
+ 1> # NUM<S4*C47,473)) > 

4610 S3SE1 ,23=S4*C46,473 
4628 GOSUB 5488 ! PGM MODULE 
4638 IF G 1 ( M > = 1 THEN WAIT 1088 
4648 IF G 1 C M > = . 5 THEN WAIT 1888 
4658 GOSUB 5070 ! SIG LEVEL 
4668 IF FLAG Cl) THEN S1SC123+46, 
12S+473=S3fCl,23 G G8=G8-G! 

< M > 

4670 ! DISP S1SC123+4S, 123+4711,2 
^ S G 1 C M •' , G U 
4688 NEXT M 
4690 I OBUFFER S4S 
4780 S4S = S 1 SC 1 23 , 2373&S2SC1 10, 25 
63 ! FINAL GAIN SELECTED 
4710 GOSUB 5488 ! PGM MODULE 
4728 RETURN 

4748 i SET SCREEN 

4750 GOSUB 5078 ! SAMPLE 

4760 S1SC12S+35, 123+363= "A V* 

4770 Sl$C128+7, 128+83= tt o4 n 
4788 I OBUFFER S4S 
4790 S4S=S1 SC123,. 2373&S2$C1 1 0. 25 
63 ! FINAL CONFIGURATION 
4800 GOSUB 5400 ! FINAL SETUP 
4810 RETURN 

<i ft ft n > 

4:338 ! SET SCREEN 
4348 GOSUB 5878 ! SAMPLE 
4358 GOSUB 5760 ! SWEEP LEGNTH 
4860 GOSUB 5810 ! BLOCK DELAY 
4370 I OBUFFER S4S 
4838 S4S = S1SC123,2373&S2SC1 10,25 
63 \ FINAL CONFIGURATION 
4396 GOSUE 5400 ! FINAL SETUP 

4980 RE TURN — 

“451FT"» 

4929 ! DEFINE BIT MASKS 

4930 B 1 < 3 > =BTD C ” 0 1 800808 “ > G E-1C 
4>=BT0C "00808000" > G Gl(3)= 
16 ! 16 dE ' 

4348 B1 C 5>=BTD <"001 00808 “> 6 Bl< 
6 > =BTD < "00000880 " > G Gl<5> = 
16 ! 16 dB 

4358 B1 C3>=BTD< "00010080") G Bl< 
18>=BTDC * 00000000" > G G 1 C 9 :■ 
=3 ! 08 dB 

4360 B 1 < 1 > = B TD < " 0 0 0 00 0 0 9 " > G Bl< 
2>=BTDv "00100800" > G G1<1>« 
29 ! 20 dB 

4970 BU7)=BTDC "00000008" > G B 1 < 
8 > = B TD < “ 08 0 1 8 8 8 8 " > G Gl(7) = 
10 1 10 dB 

4 3 3 8 B \ < 1 1 > = B T D C " 9 0 0 0 8 8 0 8 ” ;• G E l 
<12 > =8 TO < ■ 0008080 1 “ > G G 1 < 1 
1 .* = 16 1 16 d B 

4C?0 B 1 C 1 3 > =BTD * " 00000080 ” > G B 1 
i4) =BTD< "080000 10" > G G1C1 
3 > = 9 ! 03 dB 

508 A £ 1 < 1 5 :• =BTD v " 00800000 " > G El 
( 1 b>=BTDC "80000100“ > G G 1 < 1 
5:« =4 1 04 dE 
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5810 Bl< 17 )=BTD<" 00000000 “> fi B1 
< 1S)=BTD< “00001000" > 6 G 1 Cl 
7 =2 • ! 02 dB 

5 ft 2 ft Bl "6000 1000" > ^ B1 

20 > = BTD •' "00000000*' > 6 G 1 < 1 
2) =4 1 04 dB 

5030 E 1 < 2 i > = B T D < " 00800 1 0 0 " > 6 El 
< 22 > =B T D £ " O 0 0 0000 0 " ;• 8 G 1 t 2 
1>=2 1 02 db’ 

5 ft 4 0 E 1 •' 2 3 .* = B T D C " 0 0 8 08 © 1 8 " 5 B 1 

2 4 > - B T D £ “ 0 j 008000 ” > 0 G 1 i 2 
3 :• = 1 ! 01 dC 

5050 El £25 > = B T D < " 0Q ft 8800 1" ) @ B 1 
C 26 > =E‘TD £ " 0 0008 8 8 8 " > 5 G 1 £ 2 
5) =.5 ! .5 dE 

5868 RETURN 

■ 5 u 7 -8 — ! 




5888 

! CHECK FOR 

SIGNAL 

LEVEL 

5020 

SET TIMEOUT , 

2 . 288 


5100 

ON TIMEOUT 2 

GOTO 

5258 

5110 

M 2 = 0 8 N2-0 



5128 

OUTPUT 283 ; 
83 ? Ml $ 

" Wfi 1 H 

& ENTER 

5138 

I GBUFFER f X*. 



5148 

TRANSFER 5 ' - 

: f\ MIT FHS 

5158 

FOR N= 1 T 1 



5 1 68 

SFLAG 1 

* * 


5178 

M 0 < N > = V A L < M 1 
X < H - 1 > + 123 > 

b. 2 ' 

N-l >+27 

5138 

IF M 8 <! N > > M 6 

THEN Pi 

2 =M 2 +M 8 


) 8 N 2 = N 2 + i 

ELSE CFLAG 1 


NO SIG 



5208 

NEXT N 



5218 

OUTPUT 203 ; 

"WAO 11 


5215 

IF N2=8 THEN 

N2= 1 


5228 

M2 = M2''N2 



5230 

SEND 2 UNT 



5248 

RETURN 




5520 
5 6 0 0 
5610 


5620 

5638 

5648 

5650 

5 666 

5670 

5630 


5620 
578 8 
5710 " 
5728 
5730 


! GET SETTING- #1 
I GBUFFER S2* 

SEND 2 ; MTA UHL LISTEN 4 D 
HTH HTD £ " 02 H > , HTD < " 00 " > , HTD 
C *• y 0 ** ;• 

TRANSFER 204 TO S2$ FHS 
! DISP S2S 

P=SPOLL<204> e IF p#0 THEN 
GOSUB 4440 

RETURN - 

_j — 

! LOCKOUT FRONT PANEL 
SEND 2 ; *MTA UNL LISTEN 4 C 
A T A HTD C ” C7 ” > , HTD < *’ 4 5 " > - HTD 
(' " 00 " ; 

P=SPOLL£ 284 > 

RETURN 


5748 

5758 


xj^CC - 

4r€H5trWT FRONT PANEL 
SEND 2 ; MTA UNL LISTEN 4 D 
ATA HTD \ "07" > , HTD £ ,l 4A M > , HTD 
( “90 11 > 

P =S POLL 004 ) 

RETURN 

_i 


5778 

5780 

5720 


;s*00 


! SET SNEER LENGTH 
S1SC128 + 35, 1 28+353=0 HRs* £ 2 > 
IF M2C.00I THEN S1SC128+36.. 
1 28+36D=CHR$ < 6 ) ! INTC CIJ4- . 

2SM2 > < N 4 -N 5 > 1 2 5 5 > > 

RETURN 


2 5 ; : r 
268 
270 
230 
228 
- 70 - 6 - 


! LOST SIGNAL ON 5: 
ABORT 10 2 
CFLfiG 1 
RETURN 


5328 \ SET BLK 
51=530 T 6 = I P < < U !: 

1 23 > > 

5340 T5=IP££M2 

8 X T 6 ) £ 4 * 
S1SC123+S. 
S 1 SC 1 28 + 7 / 
RETURN 


5358 
5 8 6 8 
5378 
5338 


D E L A Y TO C N T R b I u 
008825 > y £ 4 s . 8 8 00 

■ . 0 000 25 -4 t . 000012 
8 01 0 0 0 01 8 5 > > 

128+33= CHR$£T6> 

1 23 + 73=CHRT £T5> 


53 1 0 

! STORE HE ' 

SETUP 

10 

i “ TCC704" FROM CA.L704 

5328 

I OBUFFER S- 


L ~1 

j 0 7208 8 0 220 ! 0 62 23 7 1 y 20 

5338 

S4J=S1SC12; 

, 7373^S2TC110,25 

3ft 

C L E A r 


£3 ! UF-OfiT! 

7 ONFIGURATION 

4ft 

0 I $ F ■STATIC TESTING ROUTINE 

5348 

GOSUB 5409 

PGM 


» 

5350 

GOSUB 5478 

' STORE IN #1 

50 

E’EEP 50*380 

5360 

GOSUB 55 j* 

! RECALL #1 

6 8 

WAIT 3000 

5378 

GOSUB 5538 

1 CRN7 SET 

78 

CLEAR 

3338 

IF S2JC1 > 109D#S ISC 129 ,2373 

SO 

ENABLE KBD BTD <"011 0000 1 " > 


THEN GO SUE 

4448 

28 

i 

5330 

RETURN 


1 8 0 

D I M B 1 S C I £3 , C*C83 : H 1 f C43 


• g -4 o o 
5418 
5428 
5438 


5448 

5458 

5468 


i SEND PGM MODULE COMMAND 
S4$=S4*E 1,2543 ! <CR>&<LF> 
SEND 2 ; MTA UNL LISTEN 4 D 
HTH HTD C " C 1 " ) , HTD £ H OF " > , HTD 
< “07" > 

TRANSFER S4S TO 284 FHS 
P— SPOLL 004 > (*! WAIT 100 
RETURN 


5 4 7F~ 

5438 

5428 


5580 
551 8 

trc *i 
•J - J i W 
JS "T ft 


7 

! STORE IN BLOCK 1 
SEND 2 • MTA UHL LISTEN 4 D 
ATA HTD £ “ C 4 " > , H T 0 < "81 " > .« H i D 
< *' 0 0 " > 

WAIT 2608 
P=SPOLL , ;204) 

RETURN 


5540 ! RECALL SETUP 

5550 SEND 2 : MTA UNL LISTEN 4 D 
ATA HTD < " C3 " > , HTD < " 0 1 " > , HTD 
< " 0 0 " > 

5360 P-SPOLL < 204 > & WAIT 108 
5570 RETURN 


1 18 
120 
138 
148 

150 

160 

1 78 
1 80 
128 

2 ft ft 
210 
2 2 0 
230 
248 
250 

2 6 0 

278 

238 

228 

3 ft ft 
310 
328 


DIM MSC21033, M1SC21S3 
CUM P1SC223,P2SC2?3 
DIM RSC163 

DIM S 1 SC264 3 • S2SC2643, S3SC23 

s4TC2643,S5SC163 
DIM T ISC 13 


B1S= 

C t - 

H 1 S- 

M S = 

mi* 

p 1 s 

P'2S 

R S 

Sis 

S2S 

S3S 

S4S 

S5s 

T1S 

DIM F 

6>, I 


BIHAR V E Q U I 0 F .ST R N G 

-5 =: C i 1 CL 0 C K D I S P L A V 

m £V EQijiy OF STRING 
MEAS SAMPLE <SECONDS> 
10ft MEAS SAMPLE STRG 
P N MEMORY 
P/N INPUT 

RESPONSE TO INPUT ? 
DATA TABLE FOR FAkT 
INBOUND CSC 2088 SETUP 
= 2 CHR N3 Ji GAIN 
= m 1 1 T B 0 UND Q C SET U P 
r,T INCH FOR PRINT 
= X ft 0 TEMP FLAG 

2 • D < 2 1 > G 1 < 2 6 > ; H 1 < 1 

. - ‘ c; 101 ) , q< 17> , S8'.:7> 
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41 


42 


jSHT s : . J 30 ) .. S3 < 100>#T0C10 


3 3 0 
348 

81 

e £G ;> =B I H GAIN MASK ARRY 

358 

D<n=2INCH FOR 100 RDG 

360 

O' 

2>=2TIME FOR 100 RDG 

370 

O' 

3 >=2 INCH 2 FOR 106 RDG 

•i> S w 

D- 

’4 .) =21 1 ME- FOR 100 RDG 

390 

D * 

5-8)=SIM= T9* 100 RDG 

400 

D 

9— 12>=SIM = LYT9Y100 RDG 

4 1 0 

D* 

1 3 '■ = >7 1 N C H F 0 R 1 0 0 R D ( j 

428 

D 

;i4)=orTIME FOP. 100 RDG 

430 

D 

15>=crIHCH T 9$ 106 PDl 

440 

0 

;i£>='tTIME T9* 100 RDG 

450 1 

G 1 < £ £ ) = H U M ERIC GAIN VALUE 

460 

HI < 1£>=HIST0GRAM BARS 

478 

I1C 7 '• = LEGHTH SAMPLE AUG’S 

430 

M y < ' iQ>=NlJM ARRAY OF MEAS 

436 

see * =TI ME AVG'S f-UHCORR 

500 

s 

e . =T I ME SAMPLE AVG'S 

5 i e 

S; 

e J L i :■ =.uSEC HSTGM ARRAY 

528 

S3e 0 >=TIME HSTGM ARRAY 


536 ! T 1 •: 0 ' > -TEMP MEftS’MENTS 
54y ! TU Ik. =TEMP MEflS flVG 
550 ! 

5 € 0 I N T E G Z F: C i • T 5 * T £ .* G 1 .* G 2 .■ H • H 0 
H 1 . L , L0 , M , M5 , N I N 1 , N2 , N3 • N4 , N 
5 , 04 . F* , P2 , P0 , R 1 , R2 , T 4 ■ To , T 3 , 
U 1 , X 

570 PERL A 0 . H 1 , A2, R3 , B , B0 • Gy.* K • M 
2 , M3 • Me * 02 , 03 , T7 , X 1 .* X2 , V* * V 1 * 


530 
590 
€00 
€ 1 0 
€20 
€30 
€4 0 
€50 
€€y 
€70 
€S 0 
€90 
700 
710 
720 
730 
740 
750 
7 €0 
770 
7 o 0 
7 9 0 
800 
810 
820 
830 
840 
850 
8€0 
870 
830 
896 
900 
910 
920 
938 
940 
350 
9€0 
370 
980 
990 
1 000 
1010 
1 828 
1838 


A 0 = C 0 N ST FOR RIO CONVERT 
R1=C0M3T FOR RID CONVERT 
R2- CONST FOR RTG CONVERT 
A 3= CON ST FOR RTO CONVERT 
B -OFFSET FOR MRTERIRl 
80= OFFSET FOR CALIPER 
C 1 -HSTGRAM HE IGHT/OCCUR 
03=8 LOCK. DELAY I NCR . 5€mS 
D4-BL0CK* DLY INCR. 12.3 v S 
09= + /-* DELTR FOR RCCEFT 
G 0 = R E C E I V E P G R I N 
G 1 = M H X HISTOGRAM BARS 
G2— HISTOGRAM B R R WIDTH 
H = PRESENT HOUR 
H 8 = H I S T 0 G R A M BRR NUMBER 
HI -HISTOGRAM BRR SAMPLES 
K -SLOPE FOR MRTERIRL 
L8=T0TAL SAMPLE COUNTER 
L =TRI HL SAMPLE COUNTER 
M =GRI N MASK POINTER 
Ml* 

M2-MEAS VALUE TOTALIZER 
M3— M 1 N > RVG VALUE OF MERS . 
MS-FINAL MERS PLOT COORD 
Me-S IGNAL TIME LIMIT (FI) 

N -GEN . PURPOSE COUNTER 
N 1 =PDS PTR FOR Fv’N FORMAT 
N2-GEN . PURPOSE COUNTER 
N3=GEN . PURPOSE COUNTER 
N4-GEN . PURPOSE COUNTER 
N5=GEN . PURPOSE COUNTER 
Nb-GEN . PURPOSE COUNTER 
02=1 NTERVfiL FOR TIME PLOT 

03 = 

04 = 0 I VISOR FOR LENGTH 

P = RESULTS OF SEP. POLL 
P2-MAX*# P/N IN DRTRBfiSE 
R8=0 DEG F 0 FOR RTD 
R 1 =REC POINTER FOR FPSDhT 
R2=REC POINTER FOP FPSDES 
T2=# OF TEMP <r> SAMPLES 
T3-TEMP CORF* = S/*LS-DEG .F> 
T4 = 

T5-BL0CK DELAY INCR. 58nS 
T 6= BLOCK DLY INCR. 12.8*5 


! T7=ST RNDRRD TEMP <30810 
! T8=TP I RL NUMBER COUNTER ’ 

! T3=SAMPLES PER TRIAL 
! Ml -WAIT FOP NEXT CYCLE 
! X =HORIZONTRL PLOT COORD 
! Xl-SHRT CAL PT DISTANCE 
! X2=L0NG CAL PT DISTANCE 
i V =VEPT I CAL PLOT COORD * 

! Y1=SH0RT CAL PT TIME 
t Y 2 = L 0 N G CAL P T T I M E 
I V3-GRAPH OFFSET CONSTANT 
i 2 -ft PATIO ACTUAL / P 8 

1170 Cl =4 
1 130 0 v 9 =0 
1198 D < 1 0 > - 0 
1200 D < 1 1 > = 8 
1210 D < 12 ) =0 

1229 D 3 = . 0008001 
1238 G 1 = 1 € 

1249 G2= 1 € 

125U H=0 

1 260 I K— 8 . 5925 1 E-6 ! 3 . 3 0 € 3 4 € E — € 

1 265 L= 1 
1 2 7 L U = 0 

1230 M6 = 0095 

1 23 1 1 3= . 0 10088525 
1282 i » 9 = . 083 5 
1298 N5=0 

1 3 0 O 01 — .05 

1318 1 0 l=-2 . 134 ! -1 . 93 ! - 1 . 5 ! 2* < 1 
1 85- 503 > 

1 328 02= . 00001 
1338 03= O 1 -.000001 
1340 P2= 1 0 
1350 77=30 .273 

1360 T 0 *. 1 0 •' — 0 

1361 TO < 8 > = y 

1 37€i 1 T 1 < 1 1 > * . 083354 5 
138C * "4=7 

1330 "3 : .06821613237E-9 

140; • * * * ’381303227 

1418 * * ? 

1420 T*- " 

1438 ! V. *114953 i 1 17517 ! 113837 

1440 ! V2=10€513 I 105000 

1458 W 1 =5 1775 

1460 Xl=10 . 133 

1478 X2= 1 8 223 

1430 Y3=0 

' 1 - 4 -3 0 — ! 

1580 SCALE 0.* 255.* 0.* 131 
1510 PENUP 

1520 ASSIGN# 1 TO “FPSDHT" 

1530 ASSIGN# 2 TO "P/ND AT" 

1540 ! GET DATABASE 

1550 GOSUB 2370 ! FORMAT 

1 560 GOSUB 3000 ! CHElK 

1578 c *EhD# 1,R1 ; SI# 

1530 *“ 4=Vhl<S1$C7, 73 > 

I n ~ 

1600 « SET EQUIP 

1610 7 ‘SUE’ 7 4 20 ! GRAPH LABEL 

1629 *i SUB 3368 ! RESET HPIB 

1638 i.T TIMEOUT 9; 18080 
164* Gi»vUB 2240 1 LOAD 5335A 

IS* k GC .UB 2330 1 LOAD 342 1 A 

1660 GOSUB 2528 ! LORD 002008 

1670 GOSUB 3108 ! PRINT HEADER 
1638 GOSUB 7560 ! CLP MEMO 

1630 S1*C12S^53, 123 + 533=" V 6 0-* 
=2 1 ECHO ; 1 TDX 

1700 S i#Cl2S+53.- 128 + 53D-' 1 " 8 0- 
=1 ! THRU ; 2 TDX 

1718 GOSUB 1739 ! SET SHSRS 
1720 GOSUB 2080 1 ME AS RE 
1730 GOSUB 3178 ' PRT AVGS 
1740 OH KEY# 8 • " DONE " GOTO 177 
8 


1840 
1050 
1060 
1070 
1 030 
1 090 
1 1 00 
1110 
1 1 20 
1 130 
1 140 
1 158 
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1750 KEY LABEL 

17E A GOTO 1710 

TTTfT G 0 S U B 3 4 30 ' DONE 
1780 GOTO 1*70 ! NXT TRIAL 

1799 ! * 

1300 ! SET 3NSRS 
1810 X=X +1 6 PENUP 9 Y AXIS X fi z 
ENUP 

1320 IF FP < T 3--‘ 1 3> =0 OR X; 230 T U E 
H 7*0 0 

1330 CLEAR £ OFr KEY# 4 
1340 DISP "SETUP SENSORS “ 

1350 W0- . 0025 3 GOSUB 4310 ! SET 
SCN 

13*0 ON KEY# 1 .. "READY” GOTO 1390 
1370 KEY LABEl fi BEEP 73 .*00 S W 
ft I T 100 fi BEEP 150.. 100 
1330 GOTO 1380 ! WAIT 
1890 OFF KEY# 1 S CLEAR 3 GOSUB 
4550 1 AGC 

1900 W0= . 000025 fi GOSUB 4908 ! S 
ET SCN 

1901 GOSUB 5950 ! TEMP RUG 

1902 IF T0 < 1 0 > <70 OP T O < 1 8 > > 90 T 
HEN BEEP >2 WRIT 100 6 BEEP 
A WAIT 100 S BfcEP fi WAIT 10 
0 fi BEEP fi WAIT 100 

1983 PRINT USING l, DD.OB,X , ‘ ; T0< 
0 > T 0 < 1 >;J8<2);T 0 < 3 > ; T © < 4 > 
1904 PRINT USING "DD.DD,X" ; T 0 -' 
5 > ; T y < * > ; T 0 ( 7 > ; T 0 < 3 > ; T 0 C 1 0 ;* 
1910 BEEP 75,200 ! 0 CLEAR 
1920 DISP "READY TO MEASURE" 

1930 ON KEY# 1 , "START" GOTO 1970 

1940 ON KEY# 4, M F:ESET H GOTO 1330 

1950 KEY LABEL 

I960 GOTO 19*0 ! WAIT 

1970 OFF KEY# 1 

1938 CLEAR 

1990 RETURN 


iwr 




2010 

! MEASURE 


2020 

OFF ERROR fi DISP “MEASURING 

II 

2030 

H* = 0 fi D C 5 > = 0 

fi D<*>=0 fi DC 


7 * = 0 5 D 3 ) = 0 

fi S 0 = 0 

2040 

D(17)=I1(0) fi 

D \ 1 3 > = S 1 C 0 ) 

205O 

FOR L= 1 TO T9 


2 0 * 8 

1 0 N E P R: u R b 0 
CLE 

TO 2 130 ! RE- V 

■■ fl 7 fi 

1 WRIT HI 


A Am 

F: F F P 140,20 0 


“• ft 0 fi 

G 0 S U B 5950 1 

TEMF AUG 

fi •=» 1 

1 T0< 10 >=73 . 5fiT 1 S= CHRf < 14> 

2 1 0 0 

GOSUB *150 ! 

SMPL&HNDW 

2110 

GOSUB S336 ! 

WINDOW 

2120 

IF TIG' ■- N2- 1 ) > M 

* OR M0<N4+1)< 

MS THEN GOTO 

2050 ! RETRY 

£130 

GOSUB **70 ! 

GET N 

2140 

GOSUB 7220 ! 

PLOT RAW TIME 

2141 

GOSUB 3940 ! 

POSITION 

2150 

! GOSUB *790 

! Plot indiu t 

2 1 *8 

GOSUB 7230 ! 

PLOT AUG f 

2170 

GOSUB 7330 1 

CHNG TO IN. 

2130 

GOSUB 3730 ! 

TIME&VfiLUE 

2120 

1 GOSUB *340 

> PRINT RfiW DFi 

2 2 D 8 

1 GOSUB *440 

* HISTOGRAM 

'Ll* 

IF H > H 1 THEN 

PENUP e plot 

.137 fi PLOT > 

:,192 fi PENUP ! 


PLOT X , V ! MAKE HOUR MARK 

2220 

NEXT L 


2230 

RETURN 



2250 ! LOAD 5335A 

22*0 DISP "LOADING 5335A DA7RBAS 
E" 

2270 ON TIMEOUT 9 GOTO 2349 
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2238 P-SPOLL <903> ! STATUS 
o * q 0 ip p=32 OR P-0 THEN 23 9 Q EL 
S£ 2370 ! SRQ , ERRlOR , FAIL 
A. OUTPUT 903 USING U #,2A,39A, 

* A , 1 4 A " ; "PB " / 3 1 SC*5 , 941 , " 

3*1»,S1«95, 1083 ! PROGRAM 

2310 iF" S1TC1 1 1 , 1 1 13=“#" THEN OU 
TPJJT 903 ; SI SC 109, 1 183 
2320 DISP "5335 FRONT PANEL LOAD 
ED" 

2330 RETURN 

2 74 0 — 

2350 BEEP ‘2 DISP “5335A NOT ON L 
I HE " 1 2 GOSUB 33*0 

* 7£Q pcttiiph __ 

2370 BEEP 2 DISP "5335A REQUIRES 

SERVIC E” >2 RETURN 

2389 T " ~~ 

2399 1 LOAD 342 1 A SETTINGS 

2400 DISP "LOADING 3421H DAT ABA* 
E " 

: U 0 OH TIMEOUT 9 GOTO 24 <0 
*20 CLEAR 9 U 1 

J. 70 P=SPOLL<90O ! STATUS 
: -~t 0 IF P#1 THEN 2500 

4 ,0 DISP "3421A DATABASE LOADED 

li 

24* 0 RETURN 
1*4. 0 ! 


2430 BEEF fi DISP "3421 A NOT On - 
INE" >2 GOSUB 33*0 

2490 RETURN 

T 

2510 BEEP fi DISP *’3421 A REQUIRES 
SERVICE" fi RETURN 

^-5-2 ju ! 

2530 ! LOAD QC2000 
2540 DISP "LOADING QC2880 DAT ABA 
SE” 

2550 ! SET TIMEOUT 9 i 3000 
25*0 ! ON TIMEOUT 9 GOTO 1700 
2570 ! 

2538 ON ERROR GOTO 2750 
2590 G 0 SUB 5730 ! L 0 C K 0 1J T 
2*00 GOSUB 5730 ! LOCKOUT 
2*10 GOSUB 5*10 I UP -LORD #1 
2*20 GOSUB 5**8 ' CRNT SETUP 
2*38 S 1 £E 1 29 , 2371=32 ■? C 1 , 1093 ! I 
GMORE DAT ABASE— LOAD SETTING 
1 

2*40 ! S ISC 123+53, 123-531 = “ > " '2 
04=1 i THRU & 2K DAMPING 
2*50 GOSUB 5330 \ STORE SETUP 

2**0 GOSUB 4550 ! AGC 

2*70 GOSUB 5150 ! SAMPLE 

2*30 GOSUB 5730 1 SWEEP LENGTH 

2*90 W0= . 009025 fi GOSUB 5330 ! B 
LOCK DELAY 

2 7 O 0 G 0 S U B 5900 1 D I V I S 0 R 
2710 GOSUB 5338 ! STORE SET U F 
2728 DISP “002080 DATABASE LOAD* 
D *' 

2730 ! BEEP 915,75 

2735 OFF ERROR 

2740 RETURN 

27*0 BEEP fi DISP ”602089 NOT ON 
LINE" fi GOSUB 33*0 
077a pcrnpw 

2730 BEEP fi DISP "QC2000 REQUIRE 
_S SERVICE" 

2790" f ART bln I &rrts — 

2300 FOR N = 1 TO 25* 

2310 B1 J = DTB^ CNUMCS2TCN, Nl> :« 1 B 

IN 

2320 H 1 S=DTHS < NUM S2SCN , N1 ? > > H 

EX 
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PRINT USING 2840 ; N, BISZ9, 

1 23 , B 1 S Cl 3 , 1 S3 , H 1 2X3 ,4 3 , S2* 
CM, Nil 

IMAGE "BYTE "..ODD," = " ,ARA 
R.hAhh." = ** , AA , “ H = " , ft 
NEXT N 
RETURN 

—r 

! P/N FORMAT 
BEEP 50,50 

DISP "PART NUMBER u 0 INPUT 
F2* 

F X 2* = U 0 0 0 0 8 0 lit 0 0 01 01 0* 01 01 " 

N= 1 4 

FOR N 1 =LEN P22 - > TO 1 STEP - 
1 ! BUILD R TO L 

IF P 2 £ C N i , N 1 3 = " - " THEN N=ll 
R GOTO 2979 ! SKIP ,, - M 
P 1 SCN , N3=P2*CH 1 , N1D 
N=N- 1 
NEXT HI 
P2*=P1* 

RETURN 

! P.'H CHECK-SEARCH 
FOR R2= i TO P2 
P 1 =R2 

tj n E R P. 0 R t j u T 0 3090 
READ# 2 , R 2 , P IT 
IF PI2TI, 143=P2*Cl, 141 THEN 
OFF ERROR 8 RETURN ! MATCH 
DBA 

NEXT P2 

I 

DISP "NOT IN DATABASE" 8 OF 
F ERROR 8 WAIT 3999 8 CHAIN 
“ FPSMOD " 

i 

! PRINT HEADER 
PRINT 8 PRINT 8 PRINT 
PRINT "TRIAL NUMBER : ";T8 8 
PRINT 

PRINT 8 PRINT "PART NUMBER : 

" ; PI SCI , 1 13; ;P1*C12, 143 
PRINT "DATE: " MDY* CDATE+2 

40100010 > 

return' 

! PRINT STATS 
FOR L=1 TO T9 

PRINT USING "DDOD . DDD • A, . DD 
DDDDDDD.fi, .DDDDDDDDDDO" ; I 
l(L)i ‘^‘USKD, ;S4(L> 
NEXT L 

D <9 >=009 ^+DC5) P DC10>=O<10 
}+D<*> 

Dai)=0ai)+D<7) 8 0<12>*D< 

1 2 > +0 k 8 ,* 

D < 1 5 > =3QR < BBS < D < 7 > /NS- < D < 5 ) 
/ N E > A 2 > ) 

D < 1 5 > =SSR < ABS < D < S > *'N6- < D < * > 
/N*>~2> > 

Il(0)sO(5)/N6 8 S1(8«=D(6)/ 
HE 8 S 0i=0; 0i,- HE 
GOSUB 7750 * LEAST- 
IF Q(4>=2 THEN D<20>=S1<0> 
D<17)*I1<0)-O<17) 8 D < 1 3>=S 
1 »' 9 > - 0 < 1 S > 8 0 C 21 > = D c 2 1 > + D < 
1 7 > 

PRINT USING "flfl, DDDD . DDD, A, 

. DDDDDDDDD , A , . DDDDDDDDD" ; 
"x»" , II C0> ; ” = “ ; S 1 < 0 > ; " = ";S0 
FRINT USING "ft A , DDDD . DO DDT L 
, H • . DDDQDDDDDDDD " ; 

1 5 > • “ = " ■ D v 1 E > 

GOTO 3400 ! SKIP STATS 
IF 0(0=2 THEN DC 21 '=0 8 GO- 
TO 3400 


D v 1 9 T= < ST ( 0 > - 0 2 0 > > •' f < Q < 4 *» - 

4 .* 4 U 1 / 

PRINT USING "AAA , DDD . DDD , XX 
XXXXXX , AAA , D . DDDDDDDDD " , ” 

A 1 = " V 0 < 1 7 > , " £S= « ; D < 1 S > 

PRINT USING 3370 ; "ZI t»";G 
< 2 > -0 1 ; "Zlrn" : 0C21 > = "4l = M ;D-: 

2 1 > - <*Q <2 >-01 > 

I MAGE AhAA , DD . DDD , X , AAAh , DD 
. DDD , X * AAh , DD . DDD 
PRINT 8 PRINT USING "AAA . DD 
DDDDD . DDD, XX, HAAAA . DDDD . DDD 
" ; " K =" Q < IE • "B= " ; Q ■. 1 

PRINT USING "AAA , DODDDDD . j 
D, X, AhA , DDDD . DDDDDDDDD " " 

K x = " ; 1 / D < 1 9 > ; " 4 "= ; D *. 1 * :■ 

PRINT 

L0=L0+NE 

RETURN 

D ISP 

BEEP 20,500 8 WAIT 1 0 0 8 EE 
EP 20,500 8 WAIT ISO 8 BEEP 
20 . 5010 

X = X + 1 8 PEN UP 8 YAXIS X 1 * \ 
ENUF 

DISP "ANOTHER" 8 INPUT P:' 

IF R $ # " V ” THEM GOSUB 35 .. 
GOTO 3739 

GOSUB 3529 8 GOSUB 7429 ! 1 
EW GRAPH 

! IF FP <T3-' 1 3> =9 OR >0 239 T 
HEN GRAPH 8 PRINT 8 PRINT 8 
PRINT 8 COPY S GOSUB 7780 
! NEW GRAFH 

Tg=T S+l 6 RETURN 

! PRINT GRAPHICS 

PRINT# 1 , R 1 SI S 

PRINT 8 PRINT 8 PRINT 8 PFI 

NT 

GRAPH 

COPY 

GCLEAP 8 YAXIS 9,19 8 XAXIS 
191 8 XAXIS 0,10 8 YAXIS 2 
55, 5 
LDIP 9 

MOVE 42,139 8 LABEL "SEC HO 

5 " 

MOVE ISO, 130 8 LABEL "IN * " 

II Cl 

FOR N= 1 TO 100 

PENUP e Fi_GT H+20. 5 6 ~ 01 

H+20, S2CNJ+5 

penup Plot 140*5 r p l ot 

N + 140 • S3 '->0 + 5 
NEXT N 

PRINT 6 PRINT 6 PRINT ii COP 

Y 

D < 1 > =-5QP < 0 < 1 1 ) •-L0- < 0 < 9 > /L0 > 
D •' 2 > = 3 Q R 0 < 1 2 > .'L0- < D C 1 S > .- 'L0 

> * 2 } 

PRINT S PRINT USING 

00 . ODD , XXX . 3fl , . DDDDDDDDD “ ; 

“ x : " D •; 9 ;• x L 0 : " = “ ; D < 1 « ) . • • 
L0 

PRINT USING ,, fififi,DODD DDDDD 
D.- 3fi, . DDDQDDDDDDDD" ; " u ■■ " 

.. D <: i > ; " = •• ; o ■: 2 :■ 

pgT||C-H 

I 

1 CLOSE FILES RHD EXIT 
FiSSIGN# 1 TO * ! FF'SDftT 
fiSSIGN# 2 TO * ! FF'SOES 
DISP "DONE" 

STOP 
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TTS15 ! 

3790 ! PRINT TIME & VALUE 
3800 H 1 =H • 

3 8 1 0 H= I NT <TIME*’3600 > ! HOUR 
3820 CS=HMSS <T I ME > 

3330 IF T1*=CHRS<14> THEN PRINT 
US I NG 3340 ; CS , " T " , GO , " x " , 

I 1 < L > , T 1 £ , T 8 < 10), "rr" ,35$, ! 'n 
. " , S3S 

3340 IMAGE AhAAA, A , DO . 0, ft, DDDO . 0 
DD, H, OD . DO, A, AAA , A, Ah 
3350 RETURN 

■g O GO - H 

3379 ! RESET HPIB 

3380 ABORT I 0 9 
3390 SEND 9 ; UNT 
3900 RESET 9 
3910 CLEAR 9 
3920 WAIT 5000 
3330 RETURN 

-5- 94-6 — ! 

3350 ! GRAPH POSIT 
3360 X=X+1 @ IF X>256 THEN GOSUB 
4000 f $ SHFT 

3370 V= < S 1 < L > — V3 > 1 2000 0000 ! i 
3330 IF Y> 200 OR Y<0 THEN GOSUB 
4110 ! Y SHFT 
3390 RETURN 

4 0 0 0 I — — < 

4010 ! x PRT&SHFT 

4020 PRINT 0 PRINT 

4030 GRAPH 

4040 COPY 

405O GCLEAR 

4060 PENUP 

4070 PRINT 6 PRINT 

4080 PRINT “MIN VALUE= ” Y3 

4 0 9 0 X 3 ■ ' “ 2 5 6 

4100 RETURN 

■4 1 : 0— j 

4 120 ! Y SHF 

4130 Y 3 = 0 2 TINT < S 1 L > / 0 2 > + 0 3 
4 140 Y=<S1" < L > - Y 3 > T. 2900 0 O 8 8 
4150 PRINT “MIN VALUE*" ;Y3 
4160 RETURN 

- 4 - 1 70 ! 

4130 ! .000385 F:TO-C 

4 190 IF T 0 N .> > 330.26 OP T8*'N % a* 
.43 THEN T0<N.?=-3.E99 6 RET 
URN ! MIN-'MAX TEMP 
4200 P0= 1 00 ! STD TEMP 
4210 Z = T 0 •: N > R 0 
4220 IF Z<1 THEN 4278 1 T<8 C 
4230 A 1 =3367 . 82 1 44833 
4240 A2=13 065764. 8633 
4250 A 3 = - 1 723543 60565 
4260 T8<N)=Rl-SQR< R2+A3£Z •» « T GOT 

0 432 8 

4270 A0s=-24 1 . 336753 1 72 

4280 A 1 =222 . 5606 1 73 15 

4230 P2 = 25 . 2433238315 

430O A3=-5 81268262546 

4310 T8<N) = fl8+Z*< fll+2*<A2+Z*A3> 


4338 j C-F 

4340 T 0 N > = 3 1 < T 8 < N > . 5 > + 3 2 
4350 RETURN 


4480 PENUP 
.4490 PLOT X .* T 0 < H > 

4500 IP I N T C T 8 < M > > = 0 OR I H T ( T 0 - N 
>> = 1 THEN LABEL VRLS'N) 

4510 PENUP 
4520 NEXT N 
4530 ( PLOT X , Y 
4540 RETURN 

-4^990 — f 

4560 ! RUTOGA IN-QC2800 
4570 SET TIMEOUT 9.; 200 
4530 ON TIMEOUT 3 GOTO 53: ►. 

4590 OUTPUT 303 :• "DR0“ 

4600 GOSUB 4990 ! BIT MASK- 
4610 G8=80-G1<3> ! GRINKO ^ 

4629 * G0=30 ! GA IN : SOdB 

4630 S 1 SCI 28+46, 128+463=CHR- B 1 
1)> 6 S1SC123+47, 12 '-4; =CH 
P s ( B 1 ( 2 ) > 

4631 Si SC 1 23-46, 1 2 3+ 46D=CHRS v B i • 
3 - :« 3 SI SC 123 + 47 . 123+473=CH 
R f *. E 1 1 4 •* > 

4640 FOP M=5 TO 25 STEP 2 
4650 1 FOR M=1 TO 25 STEP 2 
4660 IOBUFFER S4S 
4670 S4S=S1 SC129, 2373&S2SC1 18 . 2* 
63 ! UPDATE 

4 680 S4SC46, 463*CHRS < B I N I OP < B 1 >'M 
> , NUM<S4SC46, 463 > > > 

4630 S 4 S C 4 7 , 4 7 3 = C H R $ < B I N 1 0 R < E 1 M 
+ 1 > , HUM < S4SC47 .473 ) > > 

4708 S3SC1 , 23=S4SC46 , 473 

4710 GOSUB 5430 ! PGM 

4720 IF G 1 C M > = 1 THEN WAIT 1080 

4738 IF G 1 < M ) = . 5 THEN WAIT 1000 

4740 GOSUB 5150 ! SIG LEVEL 

4758 IF FLAG CO THEN SI SCI 23 + 46, 

1 23+473=331 C 1 .■ 23 § G8=G8-G 1 
CM) 

4760 NEXT M 
4770 IOBUFFER S4* 

4730 S4S=S1*C123, 2373LS2SC1 18, 25 
63 » FINAL GAIN 
4790 GOSUB 5480 ! PGM 
4300 RETURN 

■ 4 8 18 — — ~ — 

4329 ! SET SCREEN 

4830 GOSUB 5150 ! SAMPLE 
4840 S 1 SC 128 + 35, 123+363=" A4" 

4 850 W0= . 0025 5 GOSUB 53.30 1 CNT 
R SIG 

4868 IOBUFFER S4S 
4870 S4S=S 1 SCI 29 • 2373&S2SC 1 1 8 . 25 
63 ! FINAL 

4880 GOSUB 5430 ! FINAL SETUP 
489 8 RETURN 

-4-?ITn i 

4910 ! SET SCREEN 
4920 GOSUB 5156 ! SAMPLE 

4330 GOSUB 5788 ! SWEEP LEGNTH 
4940 GOSUB 5838 ! BLOCK DELAY 
4950 IOBUFFER S4S 

4360 S4S=$lf C129, 2373«S2SC1 10 . 25 
63 ! FINAL 

4378 GOSUB 54:/. 0 j FINhl SETUP 
4330 RETURN 

1 


""4 J Tgt J " 
4370 


I NO IV 


TEMP 


4330 FOR N=0 TO T4 
4330 GOSUB 4178 * 0-F 
4408 NEXT N 
4428 ! SEE 1900 
4430 RETURN 


5000 

5010 


5020 

5030 


! DEFINE BIT MASKS 
B 1 < 7 > =HTD < "40" ;■ e 
<"00") £ G1C3) = 16 
B 1 < 3 > = H TO < " 20") £ 
<"00") 6 G1(5)=1S 
B 1 < 9 > =HTD < "10" > e 
D < “ 00 " > 1 5 G 1 C 9 > = 8 


B1 <8)=HTD 
! 16 dB 
B1 <4 )=HTD 
! 16 dB 
B 1 < 18)=HT 
! 88 dB 


n — t — 

4458 ! INOIV TEMP PLOT 
4468 FOR N=8 TO T4 
4478 T0<N)=200*FP<T0<N>) 


5040 


5058 


b 1 < 1 > =htd M @0 " > e 

( M 20*> £ G 1 < 1 ) =28 
B 1 <5 > = HTO v "00” ) @ 
< " 1 8 “ > G 1 < 7 ) = 1 8 


B1 <2)=HTD 
» 20 dB 
BK6>=HTD 
! 10 dB 
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49 


5068 

B 1 

<11 > = 

HTD < 

"00 

it •*, 

Ii 

Bl 

<12 

>=H 


TD 

r. * 

< " 0 1 “ 

> i2 

G 1 < 

ii 

) = 

16 

! lb d 

5078 

b 

Bl 

1 3 :« = 

HTD < 

“ 00 

ii , 

g 

£ 1 

. • j. 



TD 

< "02" 

> @ 

G 1 < 

17 

> - 

3 ' 

y § 

p 

5080 

Bl 

< 15. ,= 

HTD < 

"00 

a 

r 

Bl 

: 1 6 

| = H 


TD 

< " 0 4 " 

■> M 

G 1 < 

1 = 

> r 

4 ! 

04 

dB 

5099 

El 

17:-' = 

HTD< 

" 0 0 

" 

fi 

Bl 

< 1 3 

•' =H 


TD 

< H 03 " 

> g 

G 1 < 

17 

) = 

2 1 

02 

dS 

3100 

Bl 

<19 > = 

HTD < 

" 0 g 

” > 

g 

~E1 

•'28 

■ =H 


TD 

< ” 80 " 

:• i? 

G 1 < 

19 

> = 

d i 

04 

cJB 

3118 

Bl 

<21 > = 

HTD < 

" A 4 

11 > 

g 

Bl 

«' *■? ■“ 

=H 


TD 

< "00” 

> g 

G 1 v 

21 

\ — 

2 1 

02 

dB ' 

5120 

Bl 

* . 23 > = 

HTD < 

"82 

M 

g 

*~B 1 

\ 2* 4 

>=H 


TD 

< " 00" 

> g 

G 1 C 

2 3 

> = 

1 ! 

01 

dB 

5130 

Bl 

< 25 > = 

HTD< 

"01 

" :• 

g 

Bl 

K 2 b 

> = H 


TD 

p 

< " 00 " 

> g 

G 1 < 

25 

— 

r 

1 


5140 

D 

RE 

TURN 








5150 

i 









5160 

i 

SIGNALS* 






' ' 

5170 

c — 

T TIMEOUT 

C ; 

15 

0 




5138 

ON 

TIMEOUT 

9 G 

OT 

0 

1 33 

0 


5 190 

M2 

= 8 g 

N2-0 

g 

M4 

= 8 




520O 

OUTPUT 

903 

; " W A 1 

“ 

g E 

NTE 

Z Z 


03 

; M 1 

$ 








5219 I OBUFFER Ml $ 

5220 TRANSFER 903 TO Ml $ FHS 
5230 FOR N=1 TO 18 

5240 SFLfiG 1 

5250 «0 < N > =V.'hL < M 1 SZ2 1 * ■*. N- 1 > +2,21 
* N- 1 ■> - 1 9D > 

52 SO IF M 8 < N > < M € THEN M2=M2+M8<N 
> g N 2 = N 2 + 1 ELSE CFl.AG 1 g 
M4=rt4+M0CN> ! NO dG 
5280 NEXT N 

5290 OUTPUT 983 ; "URO' 1 

5295 IF N2# 1 0 THEN M7 ^ * ’ -H2> 

ELSE M7=M4 

5296 IF M7-6 THEN M7*M8 
5390 IF N2=8 THEN N2=l 
5305 M2=M2''N2 

5310 SEND 9 i UNT 
5320 RETURN 

*55 53 ! 

5340 [ LOST IT-5335 
5350 ABORT 1 0 9 
5360 CFLAG 1 
5370 RETURN 

-55 0Q 4 - ' 

539Q ! STORE SETUP 
5400 I OBUFFER S4J 

5419 S4S=S1SC129,2373&S2*C110,25 
S3 ! UPDATE CONFIGURATION 

5420 GOSIJB 5430 * PGM 

5430 GOSUB 5550 ! STOP* IN #1 
5440 GOSUB 5610 ! RECA #1 
5450 GOSUB 5660 ! CRNT ! ET 
5460 IF S2«l, 1093#Sl*r , 29,2373 
THEN GOSUB 2788 
5470 RETURN 

-EL4€HFr--i 

5490 ! PGM MODULE 
55O0 S-S = S4*C 1,2541 ! -'CF:> * <LF/- 

5510 SEND 9 MT A UHL LISTEN 4 0 
hTh HTD<"Cl"),HTD< ,l 0 cr "> ■ HTD 
< " C 7 " '» 

5520 TRANSFER S4 t TO 904 FHS 
5530 P = S P 0 L L < 9 0 4 > g WAIT 1 0 O 

5540 RETURN 

TT5 50 - ^ ~ 

5560 ! STORE-BLK 1 
557A SEND 9 ; MTh UNL LISTEN 4 D 
A T A HTD c M C4 " ) , HTD < " 0 1 M ) , HTD 
< "00" > 

5530 WAIT 2600 
5590 P = SPOLL < 304 > 

56O0 RETURN 


1j*TD i ~ 

5628 ! RECALL 
56.70 SEND 9 ; MTh UNL LISTEN 4 D 
AT A HTD < ,, C3 , ‘ ’> , HTD < “01 “ > , HTD 

“ 0Q " > 

5640 F = SPOLL<304> g WAIT 188 
5650 RETURN 

■SLrlF.Q — R- — 

5670 ! SETTING #1 
5630 I OBUFFER S2* 

5690 SEND 9 ; MTA UNL LISTEN 4 0 
AT A HTD 1 - “ C2“ > .. HTD*. "00" > , HTD 
•' 00 “> 

57O0 TRANSFER 304 TO $2* FHS 
5710 P=SP0LL<984> *2 IF p#8 THEN 
GOSUB 2730 
5720 RETURN 

■ 5730 — ? — ' 

5740 ! LOCK FRT PNL 
5750 SEND 9 ; MTA UNL LISTEN 4 D 
ATA HTD< "C?" > , HTD < " 45“ > , HTD 
( “00 " > 

5760 P=SPOLLC904> 

5770 RETURN 

-v 7. ‘i re — r — ~ " 

5790 ! SWP LENGTH 
5360 $1*C 128+35, 1 2S+353-CHRX <2> 
5310 IF M2 < . 08 1 THEN S 1 1 23 + 36 , 
128+^F:3=CHRff<0^ ! < 1 1 3 > ! I NT 
< <N4- . 2TM2 ) s < N4-H5 > £255 > ) 
5320 RETURN 

5 ; 33 8 — f 

5340 ! ELK DELAV-CNTR SIG 
5350 T6= I P< < M2-W0 > /<4X . 00001 23 > > 
5360 T5=IP< < M2- W0-4 X . 00801 28XT6 > 
/ »: 4# . 08880885 ) ) 

5879 Slit 123+8, 128+33=CHRS<TS> 
5330 SI SC 128+7, 123+73=CHR* < T5 > 
5390 RETURN 

• 59O 0 — i ... 

5910 ! D I V I S 0 R - E C H 0 THRU 
5928 S3S=S2*C58,5S3 
5930 * IF BIT CHUM*: S3* > , 5 V THEN 0 
4=1 ELSE 04=2 
5940 RETURN 

Z9Z0 — ■ 

5960 ! TEMP AUG 

5978 SET TIMEOUT 9. 10888 

5930 ON TIMEOUT 9 GOTO 6130 

5931 ON ERR 0 R G 0 T 0 614 2 

5 990 T0C10->*0 ! RVG TEMP CLEAR 
6000 p = 3 P 0 L L <90 1 } 

6010 OUTPUT 981 ; SI « 1,323 ! ME A 

6020 FOR M = 0 TO URL<SlfC7, 73> ! 

H u G 

6030 ENTER 901 .■ T y M ! f 
6 8 4 0 T 0 < 1 0 > = T 0 < i 0 > + T @ < M > 

6050 NEXT M 

6060 OUTPUT 901 ;"0PH“,T4 

607 O T 0 < 1 0 > = T 0 < 1 0 > / < T 4 + 1 > 

60S 8 G 0 S U B 4368 
£ A?0 H=10f 9 GO SUE 4 170 * nv.,‘-F 

6100 IF L=1 THEN GOTO 6120 
6110 ! IF F P < 1 8XT0 f 1 3 > ;> . @ 1 0 R F 
P < 1 0X TO < 1 0 > > > . 99 THEN GOTO 
6316 ELSE GOTO 6130 
6120 T 1 $=CHR* < 1 4 > g RETURN 
6130 ! 

6140 DISP H 3 4 2 1 A NUT ON LINE” g 
RETURN 

6142 DISP "TEMP SENSOR FAIL" g R 
ETURN 

64-5 8 — L — 

6160 ! 106 SAMPLE 3 

617G GOSUB 4550 ! AG-.. 

6130 GOSUB 4900 ! ’-'^PEEN 
6198 BEEP 68,200 
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€288 OUTPUT 903 : ! ENTER 9 

63 ; flS- 

SS 10 SET TIMEOUT 9, ■ 1, F 
€220 ON TIMEOUT 9 GOT'- . 330 ! F:E 
CYCLE 

6230 IOBUFFER MS • 

€240 TRANSFER 903 TO MS FHS 
6250 SEND 9 ; UNT 
€260 FOR N= 1 TO IDO 
€270 MO < H > * V AL < MSE2 1 * < N- 1 >+2, 21 £ 
<N-1 ) +193) ! HUM EQUIV 
€280 NEXT H 
€290 OUTPUT 903 :”Wfl8 n 
€ 3 0 0 BEEP 8 0 . 2 9 0 
€310 OFF ERROR 
€320 RETURN 

6 - 3 39 — f 

€340 ! WITHIN 09 WINDOW 
€350 M0<0)»INF 6 M*'d81) = EP£ 

€2€0 FOR N= 1 TO It; 

€370 I F Mu (. N > <M0 < 6 • THEN MO C Ft ? =M 
0<N> 

6380 IF M0<N)>M0< 1 . . > THEN M*-C10 
1 >=M8<N> 

€390 NEXT N 

€400 ! IF MO •: 0 > > VEN GOTO 203 
0 

€ 4 1 0 I M 0 1 1 0 1 > — M 0 ' y ■ 29 H E N € ** 
40 

€420 N 4=y g N2 = 1 0 1 
€ 4 3 0 F. E T U R N _ 

€440 — ■" * “ 

€450 ! BUBBLE SORT 

€ 4 € 0 FOR N= 1 TO 99 
€470 M3 = M0*; N ;* 

€480 N3=H 

€499 FOR N2=N+1 TO 100 
650ft IF M 0 < N 2 ) < M 3 THEN M3=M8<N2> 
6 N3 = N2 ! CHECK FOR LOWER 
€510 NEXT N2 

6520 M0 < N3 > = M6 < N ) S M8-:N>=M3 ! S 
WAR 

€539 NEXT N 
6540 1 

6550 ‘ MEDIAN IS OK 
6560 M 3 = • ; M 0 •. 5 8 > + M O < 5 1 ? ‘ 2 

€570 i OK SAMPLE-MIN 
6580 FOR N 4 = 4 9 TO 1 STEP -1 
€590 IF M3-M0 < N4 ) > D9 THEN GOTO € 
€ I 0 

€€00 NEXT N4 
€€10 1 

€ € 2 0 ! 0 K S AMPLE- M A X 

€€30 FOR N2-52 TO 100 

€€40 IF M 0 v N 2 ) - M 3 > D 9 THEN RETURN 

€€50 NEXT N2 

6660 RETURN 

Ils0 ! 

€€90 D £ 1 > =0 fi 0 < 2 > =8 § 0 ( 3 ) =8 £ 
jj «: 4 > = 0 g S 4 < 6 > = y 
6700 FOR N3=N4+ 1 TO N2-1 
€720 M2 = M0 -I N3 > - (M7-MS > + < MO < N3 >-< 
M7-M8) >*T32C T7-T0< 19 > > ! r 
CORRECTION 

€730 Ml = CM2-B)/<K.t04> ! S-IN 
€740 G < 2 ) =D < 2 > + M2 6 P < 4 > =D < 4 > +M2 

€759 D<1>=D<1)+M1 6 D <3) =D< 3>+M 1 

€ 7 € O S 4 0 ) =34 »: Ft ) + M 8 C N 3 > 

6770 NEXT N3 
€780 N5=N2-N4-1 
€790 N6=N€+N5 
€800 ! 

€310 D < 1 3 ) =SQR < ABS < D < 3 > /NS- ■: D < 1 ) 
✓N5> A 2> > 

€820 D< 14 )=3QRCABS<D* 4>^N5-<D<2) 

/ N 5 > 2 > > 


52 

€830 IF N5= 1 00 THEN S3*="**" ELS 
E S3*=VAL*<N5> 

€840 IF D < 1 310 999 THEN S5*= " *« 11 
ELSE S5S=VRLS< .000001^IFO 
000000000*^0 < 13) > > 

68-Fi D ■; 5 > - 0 *C 5 > +D < 1 > 6 D < 7 > =0(7)+ 
D < 3 ) 

6860 D < 6>=0<6> +Q< 2 > S 0 < 8 >=0 <3 > + 
D '■ 4 > 

6 8 7 O S 0 = 3 0 * 8 ■** *. O ■ 

6 S 3 0 I UL)= 6 ( 1 N 5 e S 1 ( L ■ = D 2 > 

N 5 6 S 4 ■: L > = 4 ■; y > H 5 
6390 OUTPUT 903 • "DRIO!" , Si (L s * 

€ 9 B 0 BEEF 1 0 0 .. 2 © y 
6910 RETURN 

■ C 9 iv — ! 

6930 ! RfilJ DfiTfl PRINT 
6940 G OLE ftp ft PRINT 
6950 G0SU8 6440 ! BUBBLE SORT 
6960 FOR N= 1 TO 99 STEP 3 
6978 PRINT USING 6930 ; M8<N'*.R0 
CN+1 ) , M0'.:N+2> 

6930 INftGE . DDOODOOOD, ” ”,.00000 
DO 00 , " ”, . ODD ODD ODD 
6990 NEXT N 

7000 PRINT USING ” DDODOODDD ” : 

n 0 1 0 0 ) 

7018 PRINT ft RETURN 

zq 2 8 — 

783 8 ! PLOT H I S T C j R ft M 
7048 XflXIS 1,G1 S XflXIS 192, G1 5 
YfiXIS 1 , C 1 ft Y fiX IS 256,01 
7058 GOSUB 6440 ! BUBBLE SORT 
7860 FOR N=0 TO Cl-1 
7878 H 1 ■: N > =8 
7830 NEXT N 
7 0 9 0 ! 

7108 FOR H=N4+i TC N2- 1 

7118 H 8 = 1 8 8 0 8 0 F. 3 0 0 j: t m 0 h > - n fi ,■ \ , 

7128 IF H8> Gl-i THEN H8=G1- I 

7138 HI < I NT <H0 ) =H 1 < I NT ( H8 '• '> + 1 

7148 NEXT N 

7150 ' 

7160 FOR N=1 TC u 
7170 MOVE G24H-'. . •. . - J 0 DEAN G 
2*N-<G2-1> , Ci., -f» N-l) @ IDR 
ftW G2- 1 , 0 0 DRr. G2tN, 0 
7 1 88 NEXT N 

7190 MOVE 12,60 0 LOIR 90 0 LftBE 
L VfiLf <M0<1)> 

7280 MOVE 253-60 0 LOIR 90 0 LfiB 
EL V R L # ( M 0 < 1 > + G 1 1000 0 0 0 0 00 
> 

7218 RETURN 

7 -S- SO — | ‘ 

7230 ! GRAPH RAW TIME 

7240 ! GOSUB 3940 • POS’ri 

7250 ! PENUP 

7260 ! PLOT X , Y 

7270 ! RETURN 

T 2S8 — 1 

7290 PENUP 

7300 PLOT X, 10X0 ju; 18) - 70 > i hvg 
TEMP 

7319 FENUP 

7320 RETURN 

— I ■ — 

7348 S3< I NT < 100*FI ' 1 1 (L> )•> >*S3C I 
NT v 1 00*F t •. 1 > :■ > + 1 

7350 S . I N T •: ft < f L - Y 3 > s . Q ij y 0 y 0 1 ' 
>=S2<INT < >;S1 <L ' -Y3 '■ . 080000 

1 :• .■ + 1 

7368 M5 = 200*FP< 1 1 <L > > 

7370 FEMUR 

7338 PLOT X , M5- 1 6 PLOT X,M5+1 
7398 PENUP 
7480 ! PLOT X,Y 

7410 RETURN 

~ 4 2 f — ! 
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7430 ! GRAPH LAEEL 
7448 GCLEAP: 6 LOIR 0 
7458 X A X I S' 8 6 XAXIS 191 6 VAX 1 3 
255 

7460 FOP: N=0 TO 192 STEP £8 
7470 MOVE l,N-3 6 LABEL VHLT<N.-'2 
80.' >£ MOVE 241..N-3 S IF N<1 
20 THEN LABEL V A L * < 7 8 + N 1 8 > 
74S8 NEXT N 

7498 VAX I S IS, 10 S YAXIS 237,10 
758© LDIR 98 6 MOVE 10,65 6 LABE 
L " 1 0 •• 

7518 MOVE 10, 84 A LAEEL "vS" 

7520 MOVE 18,106 6 LABEL "cr" 
7538 MOVE 18,124 S LABEL "IN" 
7540 MOVE 251,118 6 LABEL MOYiCD 
ATE+2400808 ) 

7550 X=22 6 RETURN 

7 5 6 0 — i 

7578 ! INITIALIZE 
75S0 FOR: N=8 TO 188 
7598 S2vN>=0 6 S3CN>=0 
7608 NEXT N 

7618 K = l-'l 15195.9262 1 U5432!S. 
6548993E-6 

7620 ! B=KS-6.7 ! (1 . 85-8 . ?> ! . 73 
85U!<-. 964862 > ! <- . 993579 > ! 
1X1 

7621 ! e=K*-9.5 ! .5X1 

7622 BEEP 6 CLEAR 6 DISP "WEDGE 
SIZE < INCHES?" S DISP "H.5X 
1, H 1 X 1 , 1X1, OR .5X1" 6 IN 
PUT R t 

7623 IF RS= " H 1 X 1 " THEN B=1.45*K 

7624 IF Pf="lXl” THEN B=-<6 . 7*F> 

7625 IF Ri= " H . 5X1 " THEN B=1.325* 

K 

7626 IF R$=" . 5X1" THEN 6=-<9.5*K 

> 

7628 BEEP 0 CLEAR 0 DISP "HIGH L 
IMIT < INCHES? " 6 INPUT M6S 
M6=M6FK+B 
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7629 

BEEP S 

CLEAR 6 DISP "LOW LI 


MIT CINCHES)" 0 INPUT M9£ N 


9 = M 9 .* K + B 

7630 

! B=K*1 

325 

7 640 

80=9 ! 

c 

KTC-2.25) *2-85513.02 

7650 

D < 9 > =y 

P D ( 1 0 > =8 0 D C 1 1 > = 0 


0 DC 12) 

= y g D < 2 1 > =0 8 L0=O 

7660 

P < 2 > = C 

P P <: 4 "• = 1 P P >:.!?>= 0 P 


Q < 6 ) =0 

<k Q «T 7 > = 0 P Q ( 3 ) = y 

7676 

I 1 <0>=M 

0 S 1 < 0 ) = fi 

7672 

F«1R N=0 

TO 9 

7674 

T 0 < N X=0 


7 67 6 

NEXT N 


7630 

RETURN 


» d jy 



7709 

! COPY 

OFF TO PAPER 


7710 GRAPH 6 PRINT S PRINT li PR I 
NT 6 COPY 

7720 PRINT B PRINT 8 PRINT 
773© GOSUB 7428 ! NEW GRAPH 
7748 RETURN 

TTSti-t- 


7760 

! LEAST- LINE 



7778 

Q < 0 > = 1(0 ,i P 

Q < 5 ) =«? 

»•; 5 '« 4*." r- . 

7730 

Q < 1 < =8 C 0 ) - A -2 e 

Q < 6 > = 

Q ( 6 > - Q »: 1 

7790 

Q < 7 ')=!’{( t * >+P<2 



7800 

GK3> = QC0 j*QC2 

) S Q ( 

X = :T» . x - - 


Q C 3 > 



7310 

e< 1 1 >=- < 6K 4 > 
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APPENDIX B 


HARDWARE 

The company that manufactures the ultrasonic equipment 
listed below has changed hands several times since 1984. In 
1984 , they were Automation Industries; in 1985 they became 
Automation Industries, Sperry Products Division; in 1987 
they became Qualcorp, Automation /Sperry Division; and in 
March 1988 they were purchased by Stavely NDT Technologies 
and are now referred to as Stavely NDT Technologies. 


Part No. 

Description 

Manufacturer 

3056DL 

Data Acquisition System 

Hewlett Packard 

5335A 

Universal Timer/Counter 

Hewlett Packard 

85B 

Personal Computer 

Hewlett Packard 

22271 

Platinum RTD 

RdF Corp. 
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Part No. 

Description 

Manufacturer 

QC2000 

Ultrasonic Transceiver 

Stavely 

NDT 

Technologies 

50D1029 

PR Buffer/Sweep 

Stavely 

NDT 

Technologies 

50D1128 

System Timing 

Stavely 

NDT 

Technologies 

50D1130 

Display Sequencer 

Stavely 

NDT 

Technologies 

50D1140 

Front Panel Controller 

Stavely 

NDT 

Technologies 

50D1141 

General Purpose Receiver 

Stavely 

NDT 

Technologies 

50D1142 

General Purpose Pulser 

Stavely 

NDT 

Technologies 

5QD1143 

System Controller 

Stavely 

NDT 

Technologies 

50D1153 

Mainframe 

Stavely 

NDT 

Technologies 

50D1155 

A-scan Display 

Stavely 

NDT 

Technologies 

50D1158 

Analog I/O 

Stavely 

NDT 

Technologies 

50D1310 

Digital I/O 

Stavely 

NDT 

Technologies 


The Hewlett Packard equipment was procured with most 
options factory-installed. A high stability time base 
(option 010) , expanded HPIB control (option 040) , and set of 
rear panel connectors (option CIO) were included with the 
5335A Timer. An advanced programming ROM (00085-15005) , ROM 
drawer (82936A) , and HPIB interface (82937A) were later 
added to the computer. The 3056DL Data Acquisition System 
was procured as a 3421A mainframe, software, and certain 
options including two ten-channel multiplexers with 
thermocouple reference and connector block (option 022) , 
HPIB interface (option 201) , deletion of the cabinet and 
locking drawer (option 400) , and 120 Volt/60 Hz operation 
(option 326) . The only part of the 3056DL software that was 
used was the routine for converting the RTD resistance 
values to temperature. 

The ultrasonic transceiver mainframe (50D1153) was 
factory modified to provide convenient rear panel 
connections for the transmitting and receiving sensors (mod 
# 50K5889) . The System Timing module (50D1128) was factory 
modified to provide a four-fold increase in the blocking 
delay and sweep delay ranges required for this application 
(mod # 50K5888). The Analog I/O (50D1158) is of no use in 
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this application. Instead, the vertical display output 
signal coining directly from the mainframe (Y video input to 
the display) is tapped and fed to the timer where it is used 
to determine propagation time. The transducers are stock 
items . 

The ultrasonic wedge (wedge 50) dimensions were based 
on Staveley NDT Technologies standard part number 57A9195 
and similar parts. Optimization of surface wave propagation 
and detection required variation of angle and length. It 
also required close-tolerance machining of wedge angle. 


What is claimed as invention is: 

1. A method of measuring a subject surface length of 
a three-dimensional curvilinear body, the method com- 
prising the steps of: 

(i) initially placing the transmitter a first distance 
from the receiver; 

(ii) generating a first surface wave on the surface of 
the body using the ultrasonic transmitter; 

(iii) detecting receipt of the first surface wave with 
the ultrasonic receiver; 

(iv) measuring the time period between generation of 
the first wave by the transmitter and detection of 
the first wave by the receiver; 

(v) moving the transmitter relative to the receiver a 
measured distance such that the transmitter is a 
second distance from the receiver; 

(vi) generating a second surface wave on the surface 
of the body using the ultrasonic transmitter; 

(vii) detecting receipt of the second surface wave 
with the ultrasonic receiver; 

(viii) measuring the time period between generation 
of the second wave by the transmitter and detec- 
tion of the second wave by the receiver; 

(ix) determining the surface wave velocity by divid- 
ing the measured distance by the difference be- 
tween the time period measured in step (viii) and 
the time period measured in step (iv); and 

(x) determining the subject surface length by multi- 
plying the time period measured in step (iv) by the 
velocity determined in step (ix). 

2. The method of claim 1, wherein the body to be 
measured is an enlarged cylindrical body, and the mea- 
surement is of the perimeter of the cylindrical body. 

3. The method of claim 1, wherein the subject surface 
length exceeds 120 inches. 

4. The method of claim 3, wherein the subject surface 
length exceeds 240 inches. 

5. The method of claim 4, wherein the subject surface 
length exceeds 480 inches. 

6. The method of claim 5, wherein the subject surface 
length exceeds 960 inches. 

7. The method of claim 1, wherein the surface wave 
travels from the transmitter to the receiver without 
reflection. 


8. A method of measuring a subject surface length of 
a three-dimensional curvilinear body, the method com- 
prising the steps of: 

(i) initially placing the transmitter a first distance 
from the receiver; 

(ii) generating a first surface wave on the surface of 
the body using the ultrasonic transmitter; 

(iii) detecting receipt of the first surface wave with 
the ultrasonic receiver; 

(iv) measuring the time period between generation of 
the first wave by the transmitter and detection of 
the first wave by the receiver; 

(v) moving the transmitter relative to the receiver a 
measured distance such that the transmitter is a 
second distance from the receiver; 

(vi) generating a second surface wave on the surface 
of the body using the ultrasonic transmitter; 

(vii) detecting receipt of the second surface wave 
with the ultrasonic receiver; 

(viii) measuring the time period between generation 
of the second wave by the transmitter and detec- 
tion of the second wave by the receiver; 

(ix) determining the first surface wave velocity by 
dividing the measured distance by the difference 
between the time period measured in step (viii) and 
the time period measured in step (iv); 

(x) moving the transmitter relative to the receiver an 
Nth measured distance such that the transmitter is 
an (N-j-l)th distance from the receiver; 

(xi) generating the Nth surface wave on the surface of 
the body using the ultrasonic transmitter; 

(xii) detecting receipt of the Nth surface wave with 
the ultrasonic receiver; 

(xiii) measuring the Nth time period between genera- 
tion of the Nth wave by the transmitter and detec- 
tion of the Nth wave by the receiver; 

(xiv) determining the Nth surface wave velocity by 
dividing the Nth measuring distance by the differ- 
ence between the Nth and N— l)th time periods 
measured in step (xii); and 

(xv) repeating steps (x) through (xiv) a plurality of 
times such that the statistical result of the velocity 
values converges within a specified tolerance; and 

(xvi) determining the subject surface length by multi- 
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plying the time period measured in step (iv) by the 
statistical result of the velocity values determined 
in step (xv). 

9. The method of claim 8, wherein the body to be 
measured is an enlarged cylindrical body, and the mea- 5 
surement is of the perimeter of the cylindrical body. 

10. The method of claim 8, wherein the surface wave 
travels from the transmitter to the receiver without 
reflection. 
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11. The method of claim 8, wherein the subject sur- 
face length exceeds 120 inches. 

12. The method of claim 11, wherein the subject 
surface length exceeds 240 inches. 

13. The method of claim 12, wherein the subject 
surface length exceeds 480 inches. 

14. The method of claim 13, wherein the subject 
surface length exceeds 960 inches. 

* * * * * 
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